home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Text / Edit / GoldED-Demo / Install < prev    next >
Encoding:
Windows Autorun File  |  1999-12-03  |  106.0 KB  |  3,341 lines

  1. ; $VER: GoldED Studio 6.2.4 (14.10.1999)
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. ; -------------------------------- set constants -------------------------------
  6.  
  7. (set @studio_found                   1  )
  8. (set @studio_missing                 0  )
  9.  
  10. (set @studio_installtype_minimum     0  )
  11. (set @studio_installtype_user        1  )
  12. (set @studio_installtype_normal      2  )
  13.  
  14. (set @studio_components_golded       1  )
  15. (set @studio_components_starter      2  )
  16. (set @studio_components_docs         4  )
  17. (set @studio_components_addons       8  )
  18. (set @studio_components_developer    16 )
  19. (set @studio_components_screenshot   32 )
  20. (set @studio_components_recover      64 )
  21. (set @studio_components_config       128)
  22. (set @studio_components_all          255)
  23.  
  24. (set @studio_preset_display          1  )
  25. (set @studio_preset_interface        2  )
  26. (set @studio_preset_hunter           4  )
  27. (set @studio_preset_printer          8  )
  28. (set @studio_preset_context          16 )
  29. (set @studio_preset_syntax           32 )
  30. (set @studio_preset_layout           64 )
  31. (set @studio_preset_mouse            128)
  32. (set @studio_preset_menu             256)
  33.  
  34. (set @studio_preset_api              1  )
  35. (set @studio_preset_project          2  )
  36. (set @studio_preset_references       4  )
  37. (set @studio_preset_gadgets          8  )
  38. (set @studio_preset_tabs             16 )
  39. (set @studio_preset_keyboard         32 )
  40. (set @studio_preset_templates        64 )
  41. (set @studio_preset_misc             128)
  42. (set @studio_preset_dictionary       256)
  43.  
  44. (set @studio_cpu_68000               0  )
  45. (set @studio_cpu_68020               1  )
  46. (set @studio_cpu_68030               2  )
  47. (set @studio_cpu_68040               3  )
  48. (set @studio_cpu_68060               4  )
  49.  
  50. (set @studio_addons_envwww           1  )
  51. (set @studio_addons_envgde           2  )
  52. (set @studio_addons_envthe           4  )
  53. (set @studio_addons_envstm           8  )
  54. (set @studio_addons_envsas           16 )
  55. (set @studio_addons_envcpp           32 )
  56.  
  57. (set @studio_addons_envasm           1  )
  58. (set @studio_addons_envbat           2  )
  59. (set @studio_addons_envfax           4  )
  60. (set @studio_addons_envmdt           8  )
  61. (set @studio_addons_envthr           16 )
  62. (set @studio_addons_envjcy           32 )
  63.  
  64. (set @studio_addons_envprt           1  )
  65. (set @studio_addons_envrcs           2  )
  66. (set @studio_addons_envins           4  )
  67. (set @studio_addons_envwrp           8  )
  68. (set @studio_addons_envreg           16 )
  69. (set @studio_addons_envswp           32 )
  70.  
  71. (set @studio_addons_envrex           1  )
  72.  
  73. (set @updatemode_reinstall           0  )
  74. (set @updatemode_add                 1  )
  75. (set @updatemode_remove              2  )
  76. (set @updatemode_presets             3  )
  77. (set @updatemode_registry            4  )
  78. (set @updatemode_startup             5  )
  79. (set @updatemode_exit                6  )
  80.  
  81. (set @studio_starter_ed              1  )
  82. (set @studio_starter_appicon         2  )
  83.  
  84. (set @studio_manual_history          1  )
  85. (set @studio_manual_licence          2  )
  86. (set @studio_manual_order            4  )
  87. (set @studio_manual_english          8  )
  88. (set @studio_manual_german           16 )
  89.  
  90. ; -------------------------------- set variables -------------------------------
  91.  
  92. (set studio_found         @studio_missing)
  93. (set studio_updatemode    @updatemode_components)
  94. (set studio_registered    0)
  95. (set studio_yourname     "")
  96. (set studio_serial       "")
  97. (set studio_path         "")
  98. (set studio_update       "")
  99. (set studio_language     "")
  100. (set studio_regedit      "")
  101. (set studio_components    0)
  102. (set studio_starter       0)
  103. (set studio_manual        0)
  104. (set studio_addons_a      0)
  105. (set studio_addons_b      0)
  106. (set studio_addons_c      0)
  107. (set studio_addons_d      0)
  108. (set studio_reboot        0)
  109.  
  110. ; -------------------------------- set strings ---------------------------------
  111.  
  112. (if (= @installer-version 0)
  113.  
  114.     (set #studio_esc "")
  115.     (set #studio_esc "p")
  116. )
  117.  
  118. (if (= @language "deutsch")
  119.  
  120.     (
  121.         (set #studio_reboot "Bitte starten Sie den Rechner nach der Installation neu !")
  122.  
  123.         (set #studio_cderr "Datei nicht gefunden. Das installierte CD-Dateisystem ist fehlerhaft oder inkompatibel. Weitere Informationen finden Sie in der FAQ-Datei.")
  124.  
  125.         (set #studio_filenotfound "Datei nicht gefunden.")
  126.  
  127.         (set #studio_demo "GoldED Studio kann nicht über diese Version installiert werden (Demoversion und Vollversion sind nicht kompatibel). Deinstallieren Sie zuerst GoldED oder installieren Sie in ein anderes Verzeichnis.")
  128.  
  129.         (set #studio_rexxerr "Warnung: Die ARexx-Installation ist unvollständig.Die folgende Datei konnte nicht gefunden werden: ")
  130.  
  131.         (set #studio_overwrite "An dieser Stelle existiert schon ein Verzeichnis mit dem Namen Studio ! Soll mit der Installation in dieses Verzeichnis fortgefahren werden ?")
  132.  
  133.         (set #studio_overwrite_help "Möglicherweise gehört dieses Verzeichnis zu einem anderen Programm oder einer älteren unvollständigen Installation.")
  134.  
  135.         (set #studio_overwrite_install "Installieren")
  136.  
  137.         (set #studio_overwrite_cancel "Anderes Verzeichnis wählen")
  138.  
  139.         (set #studio_badkick "Dieses Programm benötigt AmigaOS 3 !")
  140.  
  141.         (set #studio_notify "Während der letzten Installation ist ein Fehler aufgetreten. Wir empfehlen die Wiederholung einer Minimalinstallation in ein neues Verzeichnis. Beenden Sie bitte vor der erneuten Installation alle laufenden Programme !")
  142.  
  143.         (set #studio_welcome "Willkommen beim GoldED Studio Setup !\n\nMit diesem Programm wird GoldED Studio auf Ihrem Computer installiert. Es wird dringend empfohlen, alle anderen Programme zu beenden, bevor Sie mit dem Setup fortfahren.\n\nWARNUNG: Diese Software ist durch das nationale und internationale Urheberrecht geschützt. Unerlaubter Vertrieb oder Verleih der Software oder einer ihrer Komponenten wird verfolgt.")
  144.  
  145.         (set #studio_installerr "Während der Installation ist ein Fehler aufgetraten. Eine Beschreibung der Fehlerursache finden Sie in der Log-Datei im T:-Verzeichnis, sofern Sie zu Beginn der Installation die Option LOGDATEI ERZEUGEN gewählt haben. Der Fehlercode ist: ")
  146.  
  147.         (set #studio_yourname "Geben Sie Ihren Namen ein:")
  148.  
  149.         (set #studio_yourname_help "Die Eingabe des Namens ist zur Produktregistrierung erforderlich. Ohne Registrierung können Sie diese Software nicht installieren.")
  150.  
  151.         (set #studio_serial "Geben Sie die Seriennummer ein:")
  152.  
  153.         (set #studio_serial_help "Sie finden die Seriennummer auf der Registrierkarte. Die Seriennummer besteht aus 21 Zeichen, die unter Beachtung der Groß- und Kleinschreibung eingegeben werden müssen.")
  154.  
  155.         (set #studio_check "Ist diese Angabe korrekt ?\n\n%s, %s")
  156.  
  157.         (set #studio_check_continue "Korrekt")
  158.  
  159.         (set #studio_check_repeat "Eingabe wiederholen")
  160.  
  161.         (set #studio_found "Willkommen beim GoldED Studio Setup !\n\nMit diesem Programm wird GoldED Studio auf Ihrem Computer installiert oder aktualisiert. Es wird dringend empfohlen, alle anderen Programme zu beenden, bevor Sie mit dem Setup fortfahren.\n\nDas Programm wurde schon einmal installiert:\nWählen Sie AKTUALISIEREN, um Komponenten hinzuzufügen oder zu entfernen. Wählen Sie ANDERES VERZEICHNIS, um die Installation an anderer Stelle zu wiederholen.")
  162.  
  163.         (set #studio_found_help "AKTUALISIEREN\n\nÄndert die vorhandene Installation. Dort vorhandne Komponenten werden im weiteren Verlauf dieser Installation aktualisiert.\n\nANDERES VERZEICHNIS\n\nDie Installation erfolgt in ein anderes Verzeichnis. Eine vorhandene Installation an anderer Stelle bleibt erhalten. Sie sollten von dieser Möglichkeit nur Gebrauch machen, wenn mit der vorhandenen Installation Probleme auftauchen, die eine Aktualisierung nicht ratsam erscheinen lassen.")
  164.  
  165.         (set #studio_found_confirm "AKTUALISIEREN")
  166.  
  167.         (set #studio_found_newinstall "Anderes Verzeichnis")
  168.  
  169.         (set #studio_path_choose "Wählen Sie einen Pfad für die Installation. In dem gewählten Pfad wird ein Verzeichnis für GoldED Studio erzeugt:")
  170.  
  171.         (set #studio_path_choose_help "Der Speicherplatzbedarf auf dem gewählten Medium hängt von dem weiteren Installationsablauf ab. Maximal werden 30 MB Speicherplatz benötigt.")
  172.  
  173.         (set #studio_installtype "Wählen Sie die gewünschte Installationsart:")
  174.  
  175.         (set #studio_installtype_help "Sie können später jederzeit einzelen Komponeten nachinstallieren oder installierte Komponenten entfernen, indem Sie das Setup-Programm erneut ausführen.")
  176.  
  177.         (set #studio_installtype_minimum "Minimalinstallation (500 KB)")
  178.         (set #studio_installtype_user    "Benutzerdefiniert (bis zu 25 MB)")
  179.         (set #studio_installtype_normal  "Typische Installation (2 MB)")
  180.  
  181.         (set #studio_checking "Überprüfen der vorhandenen Installation ...")
  182.  
  183.         (set #studio_updatemode_reinstall "Installation aktualisieren")
  184.         (set #studio_updatemode_add       "Komponenten hinzufügen")
  185.         (set #studio_updatemode_remove    "Komponenten entfernen")
  186.         (set #studio_updatemode_presets   "Grundeinstellungen installieren")
  187.         (set #studio_updatemode_registry  "Registry wiederherstellen")
  188.         (set #studio_updatemode_startup   "User-Startup korrigieren")
  189.         (set #studio_updatemode_exit      "Setup beenden")
  190.  
  191.         (set #studio_updatemode_help
  192.  
  193.             (cat
  194.  
  195.                 "INSTALLATION AKTUALISIEREN\n\n"
  196.  
  197.                 "Die bisher installierten Komponenten (mit Ausnahme der Grundseinstellungen) werden neu installiert.\n\n"
  198.  
  199.                 "KOMPONENTEN HINZUFÜGEN/ENTFERNEN\n\n"
  200.  
  201.                 "Ändert die vorhandene Installation durch Hinzufügen oder Entfernen einzelner Komponenten (Add-Ons, Dokumentationen, usw.).\n\n"
  202.  
  203.                 "GRUNDEINSTELLUNGEN INSTALLIEREN\n\n"
  204.  
  205.                 "Erlaubt die selektive Installation von Einstellungen (Menu, Farben, usw). Der Editor verwendet die Grundeinstellungen, wenn normale Texte bearbeitet werden, für die kein besonderer Dateityp definiert wurde.\n\n"
  206.  
  207.                 "REGISTRY WIEDERHERSTELLEN\n\n"
  208.  
  209.                 "Stellt die zentrale Konfigurationsdatei wieder her. Sie verlieren dadurch alle globalen Einstellungen im Editor sowie weiterhin alle Dateitypen mit Ausnahme des Dateityps TEXT !\n\n"
  210.  
  211.                 "USER-STARTUP KORRIGIEREN\n\n"
  212.  
  213.                 "Es wird der notwendige Assign auf das Verzeichnis des Editors eingerichtet."
  214.             )
  215.         )
  216.  
  217.         (set #studio_components_install "Wählen Sie die Komponentengruppen, die installiert werden sollen:")
  218.  
  219.         (set #studio_components_update "Wählen Sie die Komponentengruppen, die installiert bzw. aktualisiert werden sollen:")
  220.  
  221.         (set #studio_components_remove "Wählen Sie die Komponentengruppen, die ganz oder teilweise entfernt werden sollen:")
  222.  
  223.         (set #studio_components_help
  224.  
  225.             (cat
  226.  
  227.                 "GOLDED (1.76 MB)\n\n"
  228.  
  229.                 "Der Editor GoldED sowie die unmittelbar vom Editor benötigten Dateien und Verzeichnisse.\n\n"
  230.  
  231.                 "STARTER (0 - 15 KB)\n\n"
  232.  
  233.                 "Startprogramme, die die Verwendung des Editors vereinfachen (Drag & Drop).\n\n"
  234.  
  235.                 "DOKUMENTATION (36 K - 700 KB)\n\n"
  236.  
  237.                 "Die Online-Dokumentation.\n\n"
  238.  
  239.                 "ADD-ONS (0 - 25 MB)\n\n"
  240.  
  241.                 "Mitgeliefert werden die Rechtschreibprüfung Joyce, ein Thesaurus, Anpassungen an diverse C-Compiler, die HTML-Umgebung Webworld (zur Bearbeitung von HTML-Dateien mit dem Editor), Anpassungen an verschiedene E-Mail-Programme, usw.\n\n"
  242.  
  243.                 "ENTWICKLERUNTERLAGEN (830 KB)\n\n"
  244.  
  245.                 "Material für die Entwicklung von Erweiterungen für GoldED: Quelltexte, Autodocs, Includes, Catalogs, usw.\n\n"
  246.  
  247.                 "SCREENSHOT (40 KB)\n\n"
  248.  
  249.                 "Ein Screenshot von GoldED.\n\n"
  250.  
  251.                 "NOTFALLPROGTRAMM (6 KB)\n\n"
  252.  
  253.                 "Stellt nach Betriebssystemabstürzen den zuletzt bearbeiteten Text wieder her.\n\n"
  254.             )
  255.         )
  256.  
  257.         (set #studio_components_golded     "GoldED")
  258.         (set #studio_components_starter    "Starter")
  259.         (set #studio_components_docs       "Dokumentation")
  260.         (set #studio_components_addons     "Add-On(s)")
  261.         (set #studio_components_developer  "Entwicklerunterlagen")
  262.         (set #studio_components_screenshot "Screenshot")
  263.         (set #studio_components_recover    "Notfallprogramm")
  264.  
  265.         (set #studio_preset_install_A "Wählen Sie die Grundeinstellungen, die installiert werden sollen (Seite 1 von 2):")
  266.         (set #studio_preset_install_B "Wählen Sie die Grundeinstellungen, die installiert werden sollen (Seite 2 von 2):")
  267.  
  268.         (set #studio_preset_install_help "Der Editor verwendet die Grundeinstellungen, wenn normale Texte bearbeitet werden, für die kein besonderer Dateityp definiert wurde.")
  269.  
  270.         (set #studio_preset_display        "Anzeige")
  271.         (set #studio_preset_interface      "Benutzeroberfläche")
  272.         (set #studio_preset_hunter         "Dateisuche")
  273.         (set #studio_preset_printer        "Drucker")
  274.         (set #studio_preset_context        "Kontext")
  275.         (set #studio_preset_syntax         "Farbcodierung")
  276.         (set #studio_preset_layout         "Layout")
  277.         (set #studio_preset_mouse          "Maus")
  278.         (set #studio_preset_menu           "Menu")
  279.         (set #studio_preset_api            "Plug-Ins")
  280.         (set #studio_preset_project        "Projekte")
  281.         (set #studio_preset_references     "Referenzen")
  282.         (set #studio_preset_gadgets        "Symboleisten")
  283.         (set #studio_preset_tabs           "Tabulatoren")
  284.         (set #studio_preset_keyboard       "Tastatur")
  285.         (set #studio_preset_templates      "Templates")
  286.         (set #studio_preset_misc           "Verschiedenes")
  287.         (set #studio_preset_dictionary     "Wörterbücher")
  288.  
  289.         (set #studio_locale "Wählen Sie eine Sprache für die Grundeinstellungen:")
  290.  
  291.         (set #studio_locale_help "Die Berücksichtigung der vom Benutzer bevorzugten Sprache bei der Beschriftung der Eingabefelder erfolgt automatisch. Die Sprache der änderbaren Komponenten (Einstellungen für Menus, Symbolleisten usw.) muß dagegen während der Installation gewählt werden, damit die entsprechenden Konfigurationsdaten installiert werden können.")
  292.  
  293.         (set #studio_starter_help
  294.  
  295.             (cat
  296.  
  297.                 "SCHNELLSTARTER (5 KB)\n\n"
  298.  
  299.                 "Das Startprogramm für den Editor: dieses Programm kann wie ein normaler Editor verwendet werden, bietet aber erweiterte Möglichkeiten, die sie beim direkten Start von GoldED nicht haben. Der direkte Start von GoldED sollte grundsätzlich vermieden werden: verwenden Sie immer den Starter, um den Editor zu starten.\n\n"
  300.  
  301.                 "DRAG & DROP STARTER (8 KB)\n\n"
  302.  
  303.                 "Erzeugt ein Drag & Drop-Icon auf der Workbench: Sie können auf dieses Symbol klicken, um den Editor zu starten oder Dateien auf dieses Symbol ziehen, um sie im Editor zu öffnen.\n\n"
  304.             )
  305.         )
  306.  
  307.         (set #studio_starter_ed      "Schnellstarter")
  308.         (set #studio_starter_appicon "Drag & Drop-Starter")
  309.  
  310.         (set #studio_parts_install     "Wählen Sie die Komponenten dieser Kategorie, die installiert bzw. aktualisiert werden sollen:")
  311.  
  312.         (set #studio_parts_install_a   "Wählen Sie die Komponenten, die installiert bzw. aktualisiert werden sollen (Seite 1 von 4):")
  313.         (set #studio_parts_install_b   "Wählen Sie die Komponenten, die installiert bzw. aktualisiert werden sollen (Seite 2 von 4):")
  314.         (set #studio_parts_install_c   "Wählen Sie die Komponenten, die installiert bzw. aktualisiert werden sollen (Seite 3 von 4):")
  315.         (set #studio_parts_install_d   "Wählen Sie die Komponenten, die installiert bzw. aktualisiert werden sollen (Seite 4 von 4):")
  316.  
  317.         (set #studio_parts_uninstall   "Wählen Sie die Komponenten dieser Kategorie, die entfernt werden sollen:")
  318.  
  319.         (set #studio_parts_uninstall_a "Wählen Sie die Komponenten dieser Kategorie, die entfernt werden sollen (Seite 1 von 4):")
  320.         (set #studio_parts_uninstall_b "Wählen Sie die Komponenten dieser Kategorie, die entfernt werden sollen (Seite 2 von 4):")
  321.         (set #studio_parts_uninstall_c "Wählen Sie die Komponenten dieser Kategorie, die entfernt werden sollen (Seite 3 von 4):")
  322.         (set #studio_parts_uninstall_d "Wählen Sie die Komponenten dieser Kategorie, die entfernt werden sollen (Seite 4 von 4):")
  323.  
  324.         (set #studio_manual_help
  325.  
  326.             (cat
  327.  
  328.                 "HISTORY\n\n"
  329.  
  330.                 "Revisionsgeschichte (English)\n\n"
  331.  
  332.                 "LIZENZ\n\n"
  333.  
  334.                 "Lizenzbedingungen.\n\n"
  335.  
  336.                 "BESTELLINFORMATIONEN\n\n"
  337.  
  338.                 "Bezugsquellennachweis für Updates\n\n"
  339.  
  340.                 "ENGLISCHE/DEUTSCHE DOKUMENTATION\n\n"
  341.  
  342.                 "Online-Dokumentation im AmigaGuide-Format."
  343.             )
  344.         )
  345.  
  346.         (set #studio_manual_history  "History")
  347.         (set #studio_manual_licence  "Lizenz")
  348.         (set #studio_manual_order    "Bestellinformationen")
  349.         (set #studio_manual_english  "Englische Dokumentation")
  350.         (set #studio_manual_german   "Deutsche Dokumentation")
  351.  
  352.         (set #studio_registry "ACHTUNG: Beim Wiederherstellen dieser zentralen Konfigurationsdatei verlieren Sie alle globalen Einstellungen im Editor sowie weiterhin alle Dateitypen mit Ausnahme des Dateityps TEXT !")
  353.  
  354.         (set #studio_registry_restore "Wiederherstellen")
  355.         (set #studio_registry_keep    "Beibehalten")
  356.  
  357.         (set #studio_registry_help "Die zentrale Konfigurationsdatei (Registry) enthält alle dateitypunabhängigen globalen Einstellungen inklusive der Dateitypliste.")
  358.  
  359.         (set #studio_nostartup "Die Datei s:user-startup fehlt oder ist beschädigt !\n")
  360.  
  361.         (set #startup_ask "Sollen die notwendigen Einträge in der Startup-Datei des Rechners jetzt erzeugt werden ?")
  362.  
  363.         (set #startup_ask_help "Es wird der notwendige Assign auf das Verzeichnis des Editors eingerichtet.")
  364.  
  365.         (set #studio_addons_help
  366.  
  367.             (cat
  368.  
  369.                 "WEBWORLD\n\n"
  370.  
  371.                 "Erweiterung zur Bearbeitung von Internet-Seiten.\n\n"
  372.  
  373.                 "RECHTSCHREIBPRÜFUNG JOYCE\n\n"
  374.  
  375.                 "Rechtschreibprüfung Deutsch/Englisch. Markiert die Fehler im Text schon beim Schreiben. Belegt 2-4 MB Speicher !\n\n"
  376.  
  377.                 "ROGET'S THESAURUS\n\n"
  378.  
  379.                 "Englisches Thesaurus: Umfangreiches Nachschlagewerk für Synonyme. Belegt 2 MB Speicher !\n\n"
  380.  
  381.                 "SCRIPTING\n\n"
  382.  
  383.                 "Unterstützung für die Bearbeitung der StartupSequenz (Farbcodierung).\n\n"
  384.  
  385.                 "AMIGAGUIDE PUBLISHER\n\n"
  386.  
  387.                 "Erweiterung zur Bearbeitung von AmigaGuide-Dateien.\n\n"
  388.  
  389.                 "SUPPORT FÜR STORMC\n\n"
  390.  
  391.                 "Umfangreicher Support für den StormC-Compiler: C/C++ Farbhervorhebung, Toolbars, Anzeige der passenden Klammer beim Schreiben, etc.\n\n"
  392.  
  393.                 "SUPPORT FÜR SAS/C\n\n"
  394.  
  395.                 "Umfangreicher Support für den SAS/C-Compiler: C/C++ Farbhervorhebung, Toolbars, Anzeige der passenden Klammer beim Schreiben, etc.\n\n"
  396.  
  397.                 "SUPPORT FÜR ANDERE C-COMPILER\n\n"
  398.  
  399.                 "Unterstützung für andere C-Compiler.\n\n"
  400.  
  401.                 "SUPPORT FÜR ASSEMBLER\n\n"
  402.  
  403.                 "Unterstützung für die Bearbeitung von AssemblerQuelltexten (Farbcodierung).\n\n"
  404.  
  405.                 "FAXVERSAND\n\n"
  406.  
  407.                 "Aktuellen Text als Fax verschicken. Erfordert das Faxprogramm STFax\n\n".
  408.  
  409.                 "UNTERSTÜTZUNG FÜR MICRODOT\n\n"
  410.  
  411.                 "Anpassung an Microdot zum Schreiben von E-Mails.\n\n"
  412.  
  413.                 "UNTERSTÜTZUNG FÜR THOR\n\n"
  414.  
  415.                 "Anpassung an Thor zum Schreiben von E-Mails.\n\n"
  416.  
  417.                 "DRUCKERERWEITERUNG FÜR PCL-DRUCKER\n\n"
  418.  
  419.                 "PCL-Druckprogramm. PCL ist dir Druckersprache, die von den meisten Laserdruckern und den meisten HP Tintenstrahldruckern verwendet wird (Geräte von Epson und Canon sind i.d.R. keine PCL-Drucker).\n\n"
  420.  
  421.                 "INSTALLER-ASSISTENT\n\n"
  422.  
  423.                 "Diese Erweiterung erleichert das Erstellen von Installationdateien für den Amiga Installer. Beispielsweise werden zusammengehörende Klammern in der gleichen Farbe dargestellt, so daß Fehler in der Programmstruktur schnell zu finden sind.\n\n"
  424.  
  425.                 "ADD-ON WRAPPER\n\n"
  426.  
  427.                 "Dies ist ein Werkzeug für Entwickler, die Add-Ons für GoldED erzeugen und vertreiben möchten.\n\n"
  428.  
  429.                 "TEXTREGISTER\n\n"
  430.  
  431.                 "Dieses Add-On erweitert Editorfenster um eine Knopfleiste, die jeden geöffneten Text anzeigt.\n\n"
  432.  
  433.                 "MINESWEEPER\n\n"
  434.  
  435.                 "Ein kleines Spiel zum Zeitvertrieb in den Compilerpausen.\n\n"
  436.  
  437.                 "REXX SCRIPTING \n\n"
  438.  
  439.                 "Diese Erweiterung erleichert das Erstellen von Rexx-Programmen\n\n"
  440.             )
  441.         )
  442.  
  443.         (set #studio_addons_envwww "Webworld")
  444.         (set #studio_addons_envjcy "Rechtschreibprüfung Joyce")
  445.         (set #studio_addons_envthe "Roget's Thesaurus")
  446.         (set #studio_addons_envbat "Scripting")
  447.         (set #studio_addons_envgde "AmigaGuide Publisher")
  448.         (set #studio_addons_envstm "Support für StormC")
  449.         (set #studio_addons_envsas "Support für SAS/C")
  450.         (set #studio_addons_envcpp "Support für andere C-Compiler")
  451.         (set #studio_addons_envasm "Support für Assembler")
  452.         (set #studio_addons_envfax "Faxversand")
  453.         (set #studio_addons_envmdt "Unterstützung für Microdot")
  454.         (set #studio_addons_envthr "Unterstützung für Thor")
  455.         (set #studio_addons_envprt "Druckererweiterung für PCL-Drucker")
  456.         (set #studio_addons_envrcs "Revisionskontrolle")
  457.         (set #studio_addons_envins "Installer-Assistent")
  458.         (set #studio_addons_envwrp "Add-On Wrapper")
  459.         (set #studio_addons_envreg "Textregister")
  460.         (set #studio_addons_envswp "Minesweeper")
  461.         (set #studio_addons_envrex "Rexx Scripting")
  462.  
  463.         (set #studio_addons_install "Installation der Add-Ons ...")
  464.         (set #studio_addons_error   "Diese Add-On-Installation wurde abgebrochen und ist unvollständig !")
  465.  
  466.         (set #studio_ioerr "Lesefehler auf der Installations-CD !")
  467.     )
  468.  
  469.     ; english strings
  470.  
  471.     (
  472.         (set #studio_reboot "Please reboot the computer after installation !")
  473.  
  474.         (set #studio_cderr "File not fount. The CD-ROM file system installed on this computer is defective or incompatible. More information on this topic can be found in the FAQ file.")
  475.  
  476.         (set #studio_filenotfound "File not found.")
  477.  
  478.         (set #studio_demo "GoldED Studio can not be installed over this version (demo version and commercial version are incompatible). Uninstall GoldED and repeat this installation or choose another directory.")
  479.  
  480.         (set #studio_rexxerr "Warning: ARexx Installation is incomplete. File not found error: ")
  481.  
  482.         (set #studio_overwrite "A drawer named Studio already exists in this path ! Continue with installation into this drawer ?")
  483.  
  484.         (set #studio_overwrite_help "This drawer could belong to another program or to a previous incomplete installation.")
  485.  
  486.         (set #studio_overwrite_install "Install")
  487.  
  488.         (set #studio_overwrite_cancel  "Choose other path")
  489.  
  490.         (set #studio_badkick "This program requires AmigaOS 3 !")
  491.  
  492.         (set #studio_notify "An error has occured during the last installation. We recommend to repeat a minimum installation to another drawer. Please terminate all other programs before you repeat installation !")
  493.  
  494.         (set #studio_welcome "Welcome to the GoldED Studio Setup !\n\nThis program installs GoldED Studio on your computer. We recommend to terminate all other programs before you continue with the setup !\n\nWARNING: This software is protected by international and national laws. Unauthorized distribution or rental of this software or one of its components are prosecuted to the full extent possible.")
  495.  
  496.         (set #studio_installer "An error has occured during the installation. An error description can be found in the logfile (see t: directory) if you did enable log file creation. The error code is:")
  497.  
  498.         (set #studio_yourname "Enter your name:")
  499.  
  500.         (set #studio_yourname_help "The name is required for product registration. The software can not be installed without registration.")
  501.  
  502.         (set #studio_serial "Enter the serial code:")
  503.  
  504.         (set #studio_serial_help "You find the serial code on the registration card. The code must be entered exactly as printed on the registration card.")
  505.  
  506.         (set #studio_check "Is this correct ?\n\n%s, %s")
  507.  
  508.         (set #studio_check_continue "Accept")
  509.  
  510.         (set #studio_check_repeat "Modify")
  511.  
  512.         (set #studio_found "Welcome to the GoldED Studio Setup !\n\nThis program installs or updates GoldED Studio on your computer. We recommend to terminate all other programs before you continue with the setup !\n\nThis software has been installed before:\nChoose UPDATE to update, add or remove components of the existing installation. Choose OTHER DIRECTORY to install again to another directory.")
  513.  
  514.         (set #studio_found_help "UPDATE\n\nUpdates the existing installation: update, add or remove its components.\n\nOTHER DIRECTORY\n\nRepeat installation to another directory. Your old installation remains unchanged. You shouldn't use this installation type unless you have problems with your existing installation.")
  515.  
  516.         (set #studio_found_confirm "UPDATE")
  517.  
  518.         (set #studio_found_newinstall "Other directory")
  519.  
  520.         (set #studio_path_choose "Choose a path for installation. The setup program will create a directory for GoldED Studio in the path you specify:")
  521.  
  522.         (set #studio_path_choose_help "Disk space requirements on the choosen drive depend on the further installation process. About 30 MB are required for a full installation.")
  523.  
  524.         (set #studio_installtype "Choose the installation type:")
  525.  
  526.         (set #studio_installtype_help "You can add or remove components after installation by running the setup program again.")
  527.  
  528.         (set #studio_installtype_minimum "Minimum installation (500 KB)")
  529.         (set #studio_installtype_user    "User defined (up to 25 MB)")
  530.         (set #studio_installtype_normal  "Typical installation (2 MB)")
  531.  
  532.         (set #studio_checking "Examining existing installation ...")
  533.  
  534.         (set #studio_updatemode_reinstall "Upgrade installed components")
  535.         (set #studio_updatemode_add       "Add components")
  536.         (set #studio_updatemode_remove    "Remove components")
  537.         (set #studio_updatemode_presets   "Install default configuration")
  538.         (set #studio_updatemode_registry  "Restore registry")
  539.         (set #studio_updatemode_startup   "Fix user startup sequence")
  540.         (set #studio_updatemode_exit      "Leave setup")
  541.  
  542.         (set #studio_updatemode_help
  543.  
  544.             (cat
  545.  
  546.                 "UPGRADE INSTALLED COMPONENTS\n\n"
  547.  
  548.                 "Installed components with exception of configuration files are reinstalled.\n\n"
  549.  
  550.                 "ADD/REMOVE COMPONENTS\n\n"
  551.  
  552.                 "Modifies the current installation by adding or removing components (add-ons, manuals, etc.).\n\n"
  553.  
  554.                 "INSTALL DEFAULT CONFIGURATION\n\n"
  555.  
  556.                 "Select the default configuration elements you would like to see reinstalled (menu, colors, etc.). The editor uses the default configuration whenever you load a text which has no specific file type associated with it.\n\n"
  557.  
  558.                 "RESTORE REGISTRY\n\n"
  559.  
  560.                 "Reinstalls the central configuration file. You'll loose all global settings and all filetypes with exception of the type TEXT if you restore the registry !\n\n"
  561.  
  562.                 "FIX USER-STARTUP SEQUENCE\n\n"
  563.  
  564.                 "Adds the assign required by this sofwtare to the user startup sequence of your system.\n\n"
  565.             )
  566.         )
  567.  
  568.         (set #studio_components_install "Choose the categories to be installed:")
  569.  
  570.         (set #studio_components_update  "Choose the categories to be updated or installed:")
  571.  
  572.         (set #studio_components_remove  "Choose the categories to be removed completely or in parts:")
  573.  
  574.         (set #studio_components_help
  575.  
  576.             (cat
  577.  
  578.                 "GOLDED (1.76 MB)\n\n"
  579.  
  580.                 "The editor GoldED and the files and directories required by GoldED.\n\n"
  581.  
  582.                 "STARTER (0 - 15 KB)\n\n"
  583.  
  584.                 "Starter programs which simplify usage of the editor (Drag & Drop).\n\n"
  585.  
  586.                 "DOCUMENTATION (36 K - 700 KB)\n\n"
  587.  
  588.                 "Online documentation.\n\n"
  589.  
  590.                 "ADD-ONS (0 - 25 MB)\n\n"
  591.  
  592.                 "Includes the spell checking module Joyce, Roget's thesaurus, support for various C compilers, the HTML environment Webworld (for writing HTML files with the editor), support for various e-mailer, etc.\n\n"
  593.  
  594.                 "DSEVELOPER MATERIAL (830 KB)\n\n"
  595.  
  596.                 "Material for developing extensions for GoldED: source codes, autodocs, includes, catalogs, etc.\n\n"
  597.  
  598.                 "SCREENSHOT (40 KB)\n\n"
  599.  
  600.                 "A screenshot of GoldED.\n\n"
  601.  
  602.                 "EMERGENCY RECOVERY (6 KB)\n\n"
  603.  
  604.                 "Restores a text lost during a system crash.\n\n"
  605.             )
  606.         )
  607.  
  608.         (set #studio_components_golded     "GoldED")
  609.         (set #studio_components_starter    "Starter")
  610.         (set #studio_components_docs       "Documentation")
  611.         (set #studio_components_addons     "Add-On(s)")
  612.         (set #studio_components_developer  "Developer material")
  613.         (set #studio_components_screenshot "Screenshot")
  614.         (set #studio_components_recover    "Emergency Recovery")
  615.  
  616.         (set #studio_preset_install_A "Choose the default configuration elements you would like to have installed (page 1 of 2):")
  617.         (set #studio_preset_install_B "Choose the default configuration elements you would like to have installed (page 2 of 2):")
  618.  
  619.         (set #studio_preset_install_help "The editor uses the default configuration whenever you load a text which has no specific file type associated with it.")
  620.  
  621.         (set #studio_preset_display        "Display configuration")
  622.         (set #studio_preset_interface      "User interface")
  623.         (set #studio_preset_hunter         "File search")
  624.         (set #studio_preset_printer        "Printer configuration")
  625.         (set #studio_preset_context        "Context")
  626.         (set #studio_preset_syntax         "Syntax highlighting")
  627.         (set #studio_preset_layout         "Formatting")
  628.         (set #studio_preset_mouse          "Mouse")
  629.         (set #studio_preset_menu           "Menu")
  630.         (set #studio_preset_api            "Plug-Ins")
  631.         (set #studio_preset_project        "Projects")
  632.         (set #studio_preset_references     "References")
  633.         (set #studio_preset_gadgets        "Toolbars")
  634.         (set #studio_preset_tabs           "Tabs")
  635.         (set #studio_preset_keyboard       "Keyboard")
  636.         (set #studio_preset_templates      "Templates")
  637.         (set #studio_preset_misc           "Miscellaneous")
  638.         (set #studio_preset_dictionary     "Dictionaries")
  639.  
  640.         (set #studio_locale "Choose a language for the default configuration:")
  641.  
  642.         (set #studio_locale_help "While gadget labels are localized automatically, the language for configurable elements (configuration of menus, toolbars, etc.) has to be choosen during the setup so that the correct files can be installed.")
  643.  
  644.         (set #studio_starter_help
  645.  
  646.             (cat
  647.  
  648.                 "QUICK STARTER (5 KB)\n\n"
  649.  
  650.                 "The starter for the editor: while this program can be use like a normal editor (GoldED), it offers you features not available when running GoldED directly; you should in fact avoid running GoldED directly and always use the starter.\n\n"
  651.  
  652.                 "DRAG & DROP STARTER (8 KB)\n\n"
  653.  
  654.                 "Creates a drag and drop icon on your workbench where you can drag files to open them in the editor.\n\n"
  655.             )
  656.         )
  657.  
  658.         (set #studio_starter_ed      "Quick Starter")
  659.         (set #studio_starter_appicon "Drag & Drop Starter")
  660.  
  661.         (set #studio_parts_install     "Choose the components of this category to be installed or updated:")
  662.  
  663.         (set #studio_parts_install_a   "Choose the components of this category to be installed or updated (page 1 of 4):")
  664.         (set #studio_parts_install_b   "Choose the components of this category to be installed or updated (page 2 of 4):")
  665.         (set #studio_parts_install_c   "Choose the components of this category to be installed or updated (page 3 of 4):")
  666.         (set #studio_parts_install_d   "Choose the components of this category to be installed or updated (page 4 of 4):")
  667.  
  668.         (set #studio_parts_uninstall   "Choose the components of this category to be removed:")
  669.  
  670.         (set #studio_parts_uninstall_a "Choose the components of this category to be removed (page 1 of 4):")
  671.         (set #studio_parts_uninstall_b "Choose the components of this category to be removed (page 2 of 4):")
  672.         (set #studio_parts_uninstall_c "Choose the components of this category to be removed (page 3 of 4):")
  673.         (set #studio_parts_uninstall_d "Choose the components of this category to be removed (page 4 of 4):")
  674.  
  675.         (set #studio_manual_help
  676.  
  677.             (cat
  678.  
  679.                 "HISTORY\n\n"
  680.  
  681.                 "Revision history\n\n"
  682.  
  683.                 "LICENCE\n\n"
  684.  
  685.                 "User licence\n\n"
  686.  
  687.                 "ORDERING INFORMATION\n\n"
  688.  
  689.                 "Information for ordering updates\n\n"
  690.  
  691.                 "ENGLISH/GERMAN DOCUMENTATION\n\n"
  692.  
  693.                 "Online documentation in AmigaGuide format.\n\n"
  694.             )
  695.         )
  696.  
  697.         (set #studio_manual_history  "History")
  698.         (set #studio_manual_licence  "Licence")
  699.         (set #studio_manual_order    "Ordering information")
  700.         (set #studio_manual_english  "English documentation")
  701.         (set #studio_manual_german   "German documentation")
  702.  
  703.         (set #studio_registry "WARNING: You will loose all global configuration settings and all file types with exception of the type TEXT if you restore the registry !")
  704.  
  705.         (set #studio_registry_restore "Restore registry")
  706.         (set #studio_registry_keep    "Skip this step")
  707.  
  708.         (set #studio_registry_help "The central configuration file (registry) contains all file type independent configuration settings including the global list of file types.")
  709.  
  710.         (set #studio_nostartup "The file s:user-startup is missing or corrupt !\n")
  711.  
  712.         (set #startup_ask "Should the changes to the system's user startup sequence (as required by this software) be done now ?")
  713.  
  714.         (set #startup_ask_help "This will add an assign pointing to the installation directory.")
  715.  
  716.         (set #studio_addons_help
  717.  
  718.             (cat
  719.  
  720.                 "WEBWORLD\n\n"
  721.  
  722.                 "Add-On for publishing internet (HTML) documents.\n\n"
  723.  
  724.                 "JOYCE SPELL CHECKING\n\n"
  725.  
  726.                 "Spellchecking for English and German. Highlights spelling errors in a text while you are typing. Requires 2-4 MB RAM !\n\n"
  727.  
  728.                 "ROGET'S THESAURUS\n\n"
  729.  
  730.                 "English thesaurus: lists synonyms from a 100000 words database. Requires 2 MB RAM !\n\n"
  731.  
  732.                 "SCRIPTING\n\n"
  733.  
  734.                 "Support for editing the startup sequence (syntax highlighting).\n\n"
  735.  
  736.                 "AMIGAGUIDE PUBLISHER\n\n"
  737.  
  738.                 "Add-On for publishing AmigaGuide documents.\n\n"
  739.  
  740.                 "SUPPORT FOR STORMC\n\n"
  741.  
  742.                 "Support for the StormC compiler: C/C++ syntax highlighting, toolbars, shows the matching bracket while typing, etc.\n\n"
  743.  
  744.                 "SUPPORT FOR SAS/C\n\n"
  745.  
  746.                 "Support for the StormC compiler: C/C++ syntax highlighting, toolbars, shows the matching bracket while typing, etc.\n\n"
  747.  
  748.                 "SUPPORT FOR OTHER C COMPILERS\n\n"
  749.  
  750.                 "C++ syntax highlighting and other extensions.\n\n"
  751.  
  752.                 "SUPPORT FOR ASSEMBLER\n\n"
  753.  
  754.                 "Support for editing assembler source codes.\n\n"
  755.  
  756.                 "FAX\n\n"
  757.  
  758.                 "Sends current text as FAX. Requires the fax program STFax.\n\n"
  759.  
  760.                 "SUPPORT FOR MICRODOT\n\n"
  761.  
  762.                 "Support for writing e-mails with Microdot (syntax highlighting and signature support).\n\n"
  763.  
  764.                 "SUPPORT FOR THOR\n\n"
  765.  
  766.                 "Support for writing e-mails with Thor (syntax highlighting and signature support).\n\n"
  767.  
  768.                 "PCL PRINTING UTILITY\n\n"
  769.  
  770.                 "A printing utility for PCL printers. PCL is the printer command language used by most laser printers and most HP (but not Epson or Canon) inkjets.\n\n"
  771.  
  772.                 "INSTALLER WIZARD\n\n"
  773.  
  774.                 "This add-on simplifies the creation of installer scripts compatible with the Amiga Installer. For example, matching brackets have the same color so that nesting errors can be found quickly.\n\n"
  775.  
  776.                 "ADD-ON WRAPPER\n\n"
  777.  
  778.                 "The Add-On Wrapper is a tool for developers who wish to create and distribute add-ons for GoldED.\n\n"
  779.  
  780.                 "TEXT REGISTER\n\n"
  781.  
  782.                 "This add-on adds a button stripe to editor windows, one button for each open text. Click on one of these buttons to bring the associated text to the front.\n\n"
  783.  
  784.                 "MINESWEEPER\n\n"
  785.  
  786.                 "The error messages of the compiler no longer provide sufficient thrill for you ? Well, now you have the Minesweeper game to kill some time.\n\n"
  787.  
  788.                 "REXX SCRIPTING\n\n"
  789.  
  790.                 "This add-on simplifies the creation of Rexx programs\n\n"
  791.             )
  792.         )
  793.  
  794.         (set #studio_addons_envwww "Webworld")
  795.         (set #studio_addons_envjcy "Joyce Spell Checking")
  796.         (set #studio_addons_envthe "Roget's Thesaurus")
  797.         (set #studio_addons_envbat "Scripting")
  798.         (set #studio_addons_envgde "AmigaGuide Publisher")
  799.         (set #studio_addons_envstm "Support for StormC")
  800.         (set #studio_addons_envsas "Support for SAS/C")
  801.         (set #studio_addons_envcpp "Support for other C compilers")
  802.         (set #studio_addons_envasm "Support for Assembler")
  803.         (set #studio_addons_envfax "Fax")
  804.         (set #studio_addons_envmdt "Support for Microdot")
  805.         (set #studio_addons_envthr "Support for Thor")
  806.         (set #studio_addons_envprt "PCL printing utility")
  807.         (set #studio_addons_envrcs "Revision control system")
  808.         (set #studio_addons_envins "Installer Wizard")
  809.         (set #studio_addons_envwrp "Add-On Wrapper")
  810.         (set #studio_addons_envreg "Text Register")
  811.         (set #studio_addons_envswp "Minesweeper")
  812.         (set #studio_addons_envrex "Rexx Scripting")
  813.  
  814.         (set #studio_addons_install "Installation of Add-Ons ...")
  815.         (set #studio_addons_error   "This add-on installation has been aborted and is incomplete !")
  816.  
  817.         (set #studio_ioerr "Read error on installation CD !")
  818.     )
  819. )
  820.  
  821. ; -------------------------------- check environment ---------------------------
  822.  
  823. ; check if we are running under OS 3
  824.  
  825. (if (< (/ (getversion) 65536) 39)
  826.  
  827.     (
  828.         (delete "env:studioinstall")
  829.  
  830.         (textfile
  831.  
  832.             (dest "env:studioinstall")
  833.  
  834.             (append "ERROR")
  835.         )
  836.  
  837.         (abort #studio_badkick)
  838.     )
  839. )
  840.  
  841. ; check CD ROM file system
  842.  
  843. (if (not (and (exists "installdata/cpu") (exists "installdata/golded") (exists "installdata/programs")))
  844.  
  845.     (
  846.         (delete "env:studioinstall")
  847.  
  848.         (textfile
  849.  
  850.             (dest "env:studioinstall")
  851.  
  852.             (append "ERROR")
  853.         )
  854.  
  855.         (abort #studio_cderr)
  856.     )
  857. )
  858.  
  859. (if (not (exists "sys:system/rexxmast"))
  860.  
  861.     (message (cat #studio_rexxerr "sys:system/rexxmast"))
  862. )
  863.  
  864. (if (not (exists "libs:rexxsyslib.library"))
  865.  
  866.     (message (cat #studio_rexxerr "libs:rexxsyslib.library"))
  867. )
  868.  
  869. ; --------------------------------- procedures ---------------------------------
  870.  
  871. ; uninstall an add-on (input: <studio_installpath>)
  872.  
  873. (procedure studio_proc_uninstall
  874.  
  875.     (
  876.         (set studio_installcmd ("setup path \"%s\" icon \"%s\"" (pathonly studio_installpath) (fileonly studio_installpath)))
  877.  
  878.         ; request uninstall and run add-on setup
  879.  
  880.         (delete "env:installoptions")
  881.  
  882.         (textfile
  883.  
  884.             (dest "env:installoptions")
  885.  
  886.             (append "UNINSTALL")
  887.         )
  888.  
  889.         (run studio_installcmd)
  890.     )
  891. )
  892.  
  893. ; install an add-on (input: <studio_installpath>)
  894.  
  895. (procedure studio_proc_install
  896.  
  897.     (
  898.         (set studio_installcmd ("setup path \"%s\" icon \"%s\"" (pathonly studio_installpath) (fileonly studio_installpath)))
  899.  
  900.         ; set quiet mode
  901.  
  902.         (working #studio_addons_install)
  903.  
  904.         (delete "env:installoptions")
  905.  
  906.         (textfile
  907.  
  908.             (dest "env:installoptions")
  909.  
  910.             (append "INSTALLQUIET")
  911.         )
  912.  
  913.         (run studio_installcmd)
  914.  
  915.         ; check return code of installation
  916.  
  917.         (if (exists "env:componentinstall")
  918.  
  919.             (set studio_installcode (getenv "componentinstall"))
  920.  
  921.             (set studio_installcode "ERROR")
  922.         )
  923.  
  924.         (if (<> studio_installcode "OK")
  925.  
  926.             (message #studio_addons_error)
  927.         )
  928.     )
  929. )
  930.  
  931. ; edit startup sequence
  932.  
  933. (procedure studio_proc_startup
  934.  
  935.     (
  936.         (if (exists "s:user-startup")
  937.  
  938.             (
  939.                 ; remove entries from previous installation
  940.  
  941.                 (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=HiSpeed")
  942.  
  943.                 (run "installdata/programs/stripstartup >NIL: LINES=6 SECTIONNAME=GED_quick")
  944.             )
  945.  
  946.             (message #studio_nostartup)
  947.         )
  948.  
  949.         (startup "GoldED"
  950.  
  951.             (prompt #startup_ask)
  952.  
  953.             (help #startup_ask_help)
  954.  
  955.             (command
  956.  
  957.                 ("assign golded: \"%s\"\n" (expandpath "golded:"))
  958.  
  959.                 ("assign libs:   \"%s\" add\n" (tackon (expandpath "golded:") "etc/libs"))
  960.  
  961.                 ("assign fonts:  \"%s\" add\n" (tackon (expandpath "golded:") "etc/fonts"))
  962.             )
  963.         )
  964.     )
  965. )
  966.  
  967. ; restore registry (input: none)
  968.  
  969. (procedure studio_proc_registry
  970.  
  971.     (
  972.         (if (exists "golded:etc/registry/registry")
  973.  
  974.             (set studio_registry
  975.  
  976.                 (askbool
  977.  
  978.                     (prompt #studio_registry)
  979.  
  980.                     (choices
  981.  
  982.                         #studio_registry_restore
  983.                         #studio_registry_keep
  984.                     )
  985.  
  986.                     (help #studio_registry_help)
  987.                 )
  988.             )
  989.  
  990.             (set studio_registry 1)
  991.         )
  992.  
  993.         (if (= studio_registry 1)
  994.  
  995.             (
  996.                 (copyfiles
  997.  
  998.                     (source "installdata/registry/registry")
  999.  
  1000.                     (dest "golded:etc/registry")
  1001.                 )
  1002.  
  1003.                 ; remove write protection for material copied from CD-ROM
  1004.  
  1005.                 (run "installdata/programs/unprotect basedir=golded:etc/registry")
  1006.  
  1007.                 ; save install path and serial code in registry
  1008.  
  1009.                 (run ("golded:add-ons/regedit/regedit SERIAL=\"%s\" INSTALLPATH=\"%s\"" studio_serial (expandpath "")))
  1010.             )
  1011.         )
  1012.     )
  1013. )
  1014.  
  1015. ; cleanup after installation (input: none)
  1016.  
  1017. (procedure studio_proc_cleanup
  1018.  
  1019.     (
  1020.         (delete "env:componentinstall")
  1021.  
  1022.         (delete "env:installoptions")
  1023.     )
  1024. )
  1025.  
  1026. ; save configuration (input: <studio_yourname>, <studio_language>, <studio_serial>)
  1027.  
  1028. (procedure studio_proc_savecfg
  1029.  
  1030.     (if (exists "golded:etc/env" (noreq))
  1031.  
  1032.         (
  1033.             (delete "golded:etc/env/name")
  1034.  
  1035.             (textfile
  1036.  
  1037.                 (dest "golded:etc/env/name")
  1038.  
  1039.                 (append studio_yourname)
  1040.             )
  1041.  
  1042.             (delete "golded:etc/env/language")
  1043.  
  1044.             (textfile
  1045.  
  1046.                 (dest "golded:etc/env/language")
  1047.  
  1048.                 (append studio_language)
  1049.             )
  1050.  
  1051.             (delete "golded:etc/env/serial")
  1052.  
  1053.             (textfile
  1054.  
  1055.                 (dest "golded:etc/env/serial")
  1056.  
  1057.                 (append studio_serial)
  1058.             )
  1059.         )
  1060.     )
  1061. )
  1062.  
  1063. ; select subcomponents for installation (input: <studio_components>, output: <studio_starter>, <studio_manual>)
  1064.  
  1065. (procedure studio_proc_chooseparts
  1066.  
  1067.     (
  1068.         ; choose add-ons
  1069.  
  1070.         (if (bitand studio_components @studio_components_addons)
  1071.  
  1072.             (
  1073.                 (set studio_addons_a
  1074.  
  1075.                     (askoptions
  1076.  
  1077.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_install_a))
  1078.  
  1079.                         (help #studio_addons_help)
  1080.  
  1081.                         (choices
  1082.  
  1083.                             (cat #studio_esc #studio_addons_envwww)
  1084.                             (cat #studio_esc #studio_addons_envgde)
  1085.                             (cat #studio_esc #studio_addons_envthe)
  1086.                             (cat #studio_esc #studio_addons_envstm)
  1087.                             (cat #studio_esc #studio_addons_envsas)
  1088.                             (cat #studio_esc #studio_addons_envcpp)
  1089.                         )   
  1090.  
  1091.                         (default studio_addons_a)
  1092.                     )
  1093.                 )
  1094.  
  1095.                 (set studio_addons_b
  1096.  
  1097.                     (askoptions
  1098.  
  1099.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_install_b))
  1100.  
  1101.                         (help #studio_addons_help)
  1102.  
  1103.                         (choices
  1104.  
  1105.                             (cat #studio_esc #studio_addons_envasm)
  1106.                             (cat #studio_esc #studio_addons_envbat)
  1107.                             (cat #studio_esc #studio_addons_envfax)
  1108.                             (cat #studio_esc #studio_addons_envmdt)
  1109.                             (cat #studio_esc #studio_addons_envthr)
  1110.                             (cat #studio_esc #studio_addons_envjcy)
  1111.                         )   
  1112.  
  1113.                         (default studio_addons_b)
  1114.                     )
  1115.                 )
  1116.  
  1117.                 (set studio_addons_c
  1118.  
  1119.                     (askoptions
  1120.  
  1121.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_install_c))
  1122.  
  1123.                         (help #studio_addons_help)
  1124.  
  1125.                         (choices
  1126.  
  1127.                             (cat #studio_esc #studio_addons_envprt)
  1128.                             (cat #studio_esc #studio_addons_envrcs)
  1129.                             (cat #studio_esc #studio_addons_envins)
  1130.                             (cat #studio_esc #studio_addons_envwrp)
  1131.                             (cat #studio_esc #studio_addons_envreg)
  1132.                             (cat #studio_esc #studio_addons_envswp)
  1133.                         )   
  1134.  
  1135.                         (default studio_addons_c)
  1136.                     )
  1137.                 )
  1138.  
  1139.                 (set studio_addons_d
  1140.  
  1141.                     (askoptions
  1142.  
  1143.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_install_d))
  1144.  
  1145.                         (help #studio_addons_help)
  1146.  
  1147.                         (choices
  1148.  
  1149.                             (cat #studio_esc #studio_addons_envrex)
  1150.                         )   
  1151.  
  1152.                         (default studio_addons_d)
  1153.                     )
  1154.                 )
  1155.             )
  1156.         )
  1157.  
  1158.         ; choose starter(s)
  1159.  
  1160.         (if (bitand studio_components @studio_components_starter)
  1161.  
  1162.             (
  1163.                 (set studio_starter
  1164.  
  1165.                     (askoptions
  1166.  
  1167.                         (prompt (cat #studio_components_starter "\n\n" #studio_parts_install))
  1168.  
  1169.                         (help #studio_starter_help)
  1170.  
  1171.                         (choices
  1172.  
  1173.                             (cat #studio_esc #studio_starter_ed)
  1174.                             (cat #studio_esc #studio_starter_appicon)
  1175.                         )
  1176.  
  1177.                         (default studio_starter)
  1178.                     )
  1179.                 )
  1180.             )
  1181.         )
  1182.  
  1183.         ; choose documentation
  1184.  
  1185.         (if (bitand studio_components @studio_components_docs)
  1186.  
  1187.             (
  1188.                 (set studio_manual
  1189.  
  1190.                     (askoptions
  1191.  
  1192.                         (prompt (cat #studio_components_docs "\n\n" #studio_parts_install))
  1193.  
  1194.                         (help #studio_manual_help)
  1195.  
  1196.                         (choices
  1197.  
  1198.                             (cat #studio_esc #studio_manual_history)
  1199.                             (cat #studio_esc #studio_manual_licence)
  1200.                             (cat #studio_esc #studio_manual_order)
  1201.                             (cat #studio_esc #studio_manual_english)
  1202.                             (cat #studio_esc #studio_manual_german)
  1203.                         )   
  1204.  
  1205.                         (default studio_manual)
  1206.                     )
  1207.                 )
  1208.             )
  1209.         )
  1210.     )
  1211. )
  1212.  
  1213. ; select subcomponents for removal (input: studio_remove, output: <studio_removeaddons_a>, <studio_removeaddons_b>, <studio_removestarter>, <studio_removemanual>)
  1214.  
  1215. (procedure studio_proc_removeparts
  1216.  
  1217.     (
  1218.         ; remove add-ons
  1219.  
  1220.         (if (bitand studio_remove @studio_components_addons)
  1221.  
  1222.             (
  1223.                 (set studio_removeaddons_a
  1224.  
  1225.                     (askoptions
  1226.  
  1227.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_uninstall_a))
  1228.  
  1229.                         (help #studio_addons_help)
  1230.  
  1231.                         (choices
  1232.  
  1233.                             (cat #studio_esc #studio_addons_envwww)
  1234.                             (cat #studio_esc #studio_addons_envgde)
  1235.                             (cat #studio_esc #studio_addons_envthe)
  1236.                             (cat #studio_esc #studio_addons_envstm)
  1237.                             (cat #studio_esc #studio_addons_envsas)
  1238.                             (cat #studio_esc #studio_addons_envcpp)
  1239.                         )   
  1240.  
  1241.                         (default 0)
  1242.                     )
  1243.                 )
  1244.  
  1245.                 (set studio_removeaddons_b
  1246.  
  1247.                     (askoptions
  1248.  
  1249.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_uninstall_b))
  1250.  
  1251.                         (help #studio_addons_help)
  1252.  
  1253.                         (choices
  1254.  
  1255.                             (cat #studio_esc #studio_addons_envasm)
  1256.                             (cat #studio_esc #studio_addons_envbat)
  1257.                             (cat #studio_esc #studio_addons_envfax)
  1258.                             (cat #studio_esc #studio_addons_envmdt)
  1259.                             (cat #studio_esc #studio_addons_envthr)
  1260.                             (cat #studio_esc #studio_addons_envjcy)
  1261.                         )   
  1262.  
  1263.                         (default 0)
  1264.                     )
  1265.                 )
  1266.  
  1267.                 (set studio_removeaddons_c
  1268.  
  1269.                     (askoptions
  1270.  
  1271.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_uninstall_c))
  1272.  
  1273.                         (help #studio_addons_help)
  1274.  
  1275.                         (choices
  1276.  
  1277.                             (cat #studio_esc #studio_addons_envprt)
  1278.                             (cat #studio_esc #studio_addons_envrcs)
  1279.                             (cat #studio_esc #studio_addons_envins)
  1280.                             (cat #studio_esc #studio_addons_envwrp)
  1281.                             (cat #studio_esc #studio_addons_envreg)
  1282.                             (cat #studio_esc #studio_addons_envswp)
  1283.                         )   
  1284.  
  1285.                         (default 0)
  1286.                     )
  1287.                 )
  1288.  
  1289.                 (set studio_removeaddons_d
  1290.  
  1291.                     (askoptions
  1292.  
  1293.                         (prompt (cat #studio_components_addons "\n\n" #studio_parts_uninstall_d))
  1294.  
  1295.                         (help #studio_addons_help)
  1296.  
  1297.                         (choices
  1298.  
  1299.                             (cat #studio_esc #studio_addons_envrex)
  1300.                         )   
  1301.  
  1302.                         (default 0)
  1303.                     )
  1304.                 )
  1305.             )
  1306.         )
  1307.  
  1308.         ; remove starter(s)
  1309.  
  1310.         (if (bitand studio_remove @studio_components_starter)
  1311.  
  1312.             (
  1313.                 (set studio_removestarter
  1314.  
  1315.                     (askoptions
  1316.  
  1317.                         (prompt (cat #studio_components_starter "\n\n" #studio_parts_uninstall))
  1318.  
  1319.                         (help #studio_starter_help)
  1320.  
  1321.                         (choices
  1322.  
  1323.                             (cat #studio_esc #studio_starter_ed)
  1324.                             (cat #studio_esc #studio_starter_appicon)
  1325.                         )
  1326.  
  1327.                         (default 0)
  1328.                     )
  1329.                 )
  1330.             )
  1331.         )
  1332.  
  1333.         ; remove documentation
  1334.  
  1335.         (if (bitand studio_remove @studio_components_docs)
  1336.  
  1337.             (
  1338.                 (set studio_removemanual
  1339.  
  1340.                     (askoptions
  1341.  
  1342.                         (prompt (cat #studio_components_docs "\n\n" #studio_parts_uninstall))
  1343.  
  1344.                         (help #studio_manual_help)
  1345.  
  1346.                         (choices
  1347.  
  1348.                             (cat #studio_esc #studio_manual_history)
  1349.                             (cat #studio_esc #studio_manual_licence)
  1350.                             (cat #studio_esc #studio_manual_order)
  1351.                             (cat #studio_esc #studio_manual_english)
  1352.                             (cat #studio_esc #studio_manual_german)
  1353.                         )   
  1354.  
  1355.                         (default 0)
  1356.                     )
  1357.                 )
  1358.             )
  1359.         )
  1360.     )
  1361. )
  1362.  
  1363. ; choose preferred language (input: <studio_language>, output: <studio_language>
  1364.  
  1365. (procedure studio_proc_chooselanguage
  1366.  
  1367.     (
  1368.         (while (not (exists ("installdata/locale/%s/standard.menu" studio_language)))
  1369.  
  1370.             (if (= @language "english") (set studio_locale 0))
  1371.             (if (= @language "deutsch") (set studio_locale 1))
  1372.  
  1373.             (set studio_locale
  1374.  
  1375.                 (askchoice
  1376.  
  1377.                     (prompt #studio_locale)
  1378.  
  1379.                     (help #studio_locale_help)
  1380.  
  1381.                     (choices
  1382.  
  1383.                         (cat #studio_esc "English")
  1384.                         (cat #studio_esc "Deutsch")
  1385.                     )
  1386.  
  1387.                     (default studio_locale)
  1388.                 )
  1389.             )
  1390.  
  1391.             (if (= studio_locale 0) (set studio_language "english"))
  1392.             (if (= studio_locale 1) (set studio_language "deutsch"))
  1393.         )
  1394.     )
  1395. )
  1396.  
  1397. ; install registry editor (input: none)
  1398.  
  1399. (procedure studio_proc_installregedit
  1400.  
  1401.     (
  1402.         (if (= studio_regedit "")
  1403.  
  1404.             (
  1405.                 (set studio_regedit "golded:add-ons/regedit/regedit")
  1406.  
  1407.                 (if (exists studio_regedit)
  1408.  
  1409.                     (
  1410.                         (set oldver (getversion studio_regedit))
  1411.  
  1412.                         (set newver (getversion "installdata/golded/add-ons/regedit/regedit"))
  1413.  
  1414.                         (if (> newver oldver)
  1415.  
  1416.                             (copyfiles
  1417.  
  1418.                                 (source "installdata/golded/add-ons/regedit")
  1419.  
  1420.                                 (dest "golded:add-ons/regedit")
  1421.  
  1422.                                 (all)
  1423.                             )
  1424.                         )
  1425.                     )
  1426.  
  1427.                     (copyfiles
  1428.  
  1429.                         (source "installdata/golded/add-ons/regedit")
  1430.  
  1431.                         (dest "golded:add-ons/regedit")
  1432.  
  1433.                         (all)
  1434.                     )
  1435.                 )
  1436.             )
  1437.         )
  1438.     )
  1439. )
  1440.  
  1441. ; check existing setup (input: <studio_path>, output: <studio_yourname>, <studio_serial>, <studio_components>)
  1442.  
  1443. (procedure studio_proc_checksetup
  1444.  
  1445.     (
  1446.         (working studio_checking)
  1447.  
  1448.         (makeassign "golded" studio_path)
  1449.  
  1450.         (if (exists "golded:" (noreq))
  1451.  
  1452.             (
  1453.                 ; read env variables from last installation
  1454.  
  1455.                 (if (exists "golded:etc/env")
  1456.  
  1457.                     (
  1458.                         (if (= (exists "golded:etc/env/name") 1)
  1459.  
  1460.                             (
  1461.                                 (run "installdata/programs/setenv NAME=NAME FROM=golded:etc/env/name")
  1462.  
  1463.                                 (set studio_yourname (getenv "NAME"))
  1464.                             )
  1465.                         )
  1466.  
  1467.                         (if (= (exists "golded:etc/env/language") 1)
  1468.  
  1469.                             (
  1470.                                 (run "installdata/programs/setenv NAME=LANGUAGE FROM=golded:etc/env/language")
  1471.  
  1472.                                 (set studio_language (getenv "LANGUAGE"))
  1473.                             )
  1474.                         )
  1475.  
  1476.                         (if (= (exists "golded:etc/env/serial") 1)
  1477.  
  1478.                             (
  1479.                                 (run "installdata/programs/setenv NAME=SERIAL FROM=golded:etc/env/serial")
  1480.  
  1481.                                 (set studio_serial (getenv "SERIAL"))
  1482.                             )
  1483.                         )
  1484.                     )
  1485.                 )
  1486.  
  1487.                 ; check installed components
  1488.  
  1489.                 (set studio_components 0)
  1490.                 (set studio_starter    0)
  1491.                 (set studio_manual     0)
  1492.                 (set studio_addons_a   0)
  1493.                 (set studio_addons_b   0)
  1494.                 (set studio_addons_c   0)
  1495.                 (set studio_addons_d   0)
  1496.  
  1497.                 (if (exists "golded:golded")
  1498.  
  1499.                     (set studio_components (+ studio_components @studio_components_golded))
  1500.                 )
  1501.  
  1502.                 (if (exists "golded:ed")
  1503.  
  1504.                     (set studio_starter (+ studio_starter @studio_starter_ed))
  1505.                 )
  1506.  
  1507.                 (if (exists "golded:Drag & drop")
  1508.  
  1509.                     (set studio_starter (+ studio_starter @studio_starter_appicon))
  1510.                 )
  1511.  
  1512.                 (if (<> studio_starter 0)
  1513.  
  1514.                     (set studio_components (+ studio_components @studio_components_starter))
  1515.                 )
  1516.  
  1517.                 (if (exists "golded:History")
  1518.  
  1519.                     (set studio_manual (+ studio_manual @studio_manual_history))
  1520.                 )
  1521.  
  1522.                 (if (exists "golded:Licence")
  1523.  
  1524.                     (set studio_manual (+ studio_manual @studio_manual_licence))
  1525.                 )
  1526.  
  1527.                 (if (exists "golded:Order")
  1528.  
  1529.                     (set studio_manual (+ studio_manual @studio_manual_order))
  1530.                 )
  1531.  
  1532.                 (if (exists "golded:Manual")
  1533.  
  1534.                     (set studio_manual (+ studio_manual @studio_manual_english))
  1535.                 )
  1536.  
  1537.                 (if (exists "golded:Anleitung")
  1538.  
  1539.                     (set studio_manual (+ studio_manual @studio_manual_german))
  1540.                 )
  1541.  
  1542.                 (if (<> 0 studio_manual)
  1543.  
  1544.                     (set studio_components (+ studio_components @studio_components_docs))
  1545.                 )
  1546.  
  1547.                 (if (exists "golded:add-ons/webworld")
  1548.  
  1549.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envwww))
  1550.                 )
  1551.  
  1552.                 (if (exists "golded:add-ons/makeguide")
  1553.  
  1554.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envgde))
  1555.                 )
  1556.  
  1557.                 (if (exists "golded:add-ons/thesaurus")
  1558.  
  1559.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envthe))
  1560.                 )
  1561.  
  1562.                 (if (exists "golded:add-ons/stormc")
  1563.  
  1564.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envstm))
  1565.                 )
  1566.  
  1567.                 (if (exists "golded:add-ons/sas-c")
  1568.  
  1569.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envsas))
  1570.                 )
  1571.  
  1572.                 (if (exists "golded:add-ons/c++")
  1573.  
  1574.                     (set studio_addons_a (+ studio_addons_a @studio_addons_envcpp))
  1575.                 )
  1576.  
  1577.                 (if (exists "golded:add-ons/a68k")
  1578.  
  1579.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envasm))
  1580.                 )
  1581.  
  1582.                 (if (exists "golded:add-ons/scripting")
  1583.  
  1584.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envbat))
  1585.                 )
  1586.  
  1587.                 (if (exists "golded:add-ons/fax")
  1588.  
  1589.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envfax))
  1590.                 )
  1591.  
  1592.                 (if (exists "golded:add-ons/microdot")
  1593.  
  1594.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envmdt))
  1595.                 )
  1596.  
  1597.                 (if (exists "golded:add-ons/thor")
  1598.  
  1599.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envthr))
  1600.                 )
  1601.  
  1602.                 (if (exists "golded:add-ons/joyce")
  1603.  
  1604.                     (set studio_addons_b (+ studio_addons_b @studio_addons_envjcy))
  1605.                 )
  1606.  
  1607.                 (if (exists "golded:add-ons/print")
  1608.  
  1609.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envprt))
  1610.                 )
  1611.  
  1612.                 (if (exists "golded:add-ons/rcs")
  1613.  
  1614.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envrcs))
  1615.                 )
  1616.  
  1617.                 (if (exists "golded:add-ons/installer")
  1618.  
  1619.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envins))
  1620.                 )
  1621.  
  1622.                 (if (exists "golded:add-ons/wrapper")
  1623.  
  1624.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envwrp))
  1625.                 )
  1626.  
  1627.                 (if (exists "golded:add-ons/register")
  1628.  
  1629.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envreg))
  1630.                 )
  1631.  
  1632.                 (if (exists "golded:add-ons/minesweeper")
  1633.  
  1634.                     (set studio_addons_c (+ studio_addons_c @studio_addons_envswp))
  1635.                 )
  1636.  
  1637.                 (if (exists "golded:add-ons/rexx")
  1638.  
  1639.                     (set studio_addons_d (+ studio_addons_d @studio_addons_envrex))
  1640.                 )
  1641.  
  1642.                 (if (or (<> studio_addons_a 0) (<> studio_addons_b 0) (<> studio_addons_c 0) (<> studio_addons_d 0))
  1643.  
  1644.                     (set studio_components (+ studio_components @studio_components_addons))
  1645.                 )
  1646.                 
  1647.                 (if (or (exists "golded:developer/api") (exists "golded:developer/catalogs") (exists "golded:developer/include") (exists "golded:developer/registry") (exists "golded:developer/scanner") (exists "golded:developer/source") (exists "golded:developer/syntax"))
  1648.                 
  1649.                     (set studio_components (+ studio_components @studio_components_developer))
  1650.                 )
  1651.                 
  1652.                 (if (exists "golded:screenshot")
  1653.                 
  1654.                     (set studio_components (+ studio_components @studio_components_screenshot))
  1655.                 )
  1656.                 
  1657.                 (if (exists "golded:recover")
  1658.                 
  1659.                     (set studio_components (+ studio_components @studio_components_recover))
  1660.                 )
  1661.             )
  1662.         )
  1663.     )
  1664. )
  1665.  
  1666. ; install presets (input: none)
  1667.  
  1668. (procedure studio_proc_installpresets
  1669.  
  1670.     (
  1671.         (set studio_preset_install_a
  1672.  
  1673.             (askoptions
  1674.  
  1675.                 (prompt #studio_preset_install_a)
  1676.  
  1677.                 (choices
  1678.  
  1679.                     (cat #studio_esc #studio_preset_display)
  1680.                     (cat #studio_esc #studio_preset_interface)
  1681.                     (cat #studio_esc #studio_preset_hunter)
  1682.                     (cat #studio_esc #studio_preset_printer)
  1683.                     (cat #studio_esc #studio_preset_context)
  1684.                     (cat #studio_esc #studio_preset_syntax)
  1685.                     (cat #studio_esc #studio_preset_layout)
  1686.                     (cat #studio_esc #studio_preset_mouse)
  1687.                     (cat #studio_esc #studio_preset_menu)
  1688.                 )
  1689.  
  1690.                 (default 0)
  1691.  
  1692.                 (help #studio_preset_install_help)
  1693.             )
  1694.         )
  1695.  
  1696.         (set studio_preset_install_b
  1697.  
  1698.             (askoptions
  1699.  
  1700.                 (prompt #studio_preset_install_b)
  1701.  
  1702.                 (choices
  1703.  
  1704.                     (cat #studio_esc #studio_preset_api)
  1705.                     (cat #studio_esc #studio_preset_project)
  1706.                     (cat #studio_esc #studio_preset_references)
  1707.                     (cat #studio_esc #studio_preset_gadgets)
  1708.                     (cat #studio_esc #studio_preset_tabs)
  1709.                     (cat #studio_esc #studio_preset_keyboard)
  1710.                     (cat #studio_esc #studio_preset_templates)
  1711.                     (cat #studio_esc #studio_preset_misc)
  1712.                     (cat #studio_esc #studio_preset_dictionary)
  1713.                 )
  1714.  
  1715.                 (default 0)
  1716.  
  1717.                 (help #studio_preset_install_help)
  1718.             )
  1719.         )
  1720.  
  1721.         (if (or studio_preset_install_a studio_preset_install_b)
  1722.  
  1723.             (
  1724.                 (if (bitand studio_preset_install_a (+ @studio_preset_mouse @studio_preset_menu @studio_preset_gadgets))
  1725.  
  1726.                     (studio_proc_chooselanguage)
  1727.                 )
  1728.  
  1729.                 (if (bitand studio_preset_install_a @studio_preset_display)
  1730.  
  1731.                     (
  1732.                         (run ("%s PRESET installdata/locale/%s/standard.display" studio_regedit studio_language))
  1733.  
  1734.                         ; reset font
  1735.  
  1736.                         (run bin "installdata/programs/installfont file=golded:etc/registry/presets/standard.display")
  1737.                     )
  1738.                 )
  1739.  
  1740.                 (if (bitand studio_preset_install_a @studio_preset_interface)
  1741.  
  1742.                     (run ("%s PRESET installdata/registry/presets/standard.interface" studio_regedit))
  1743.                 )
  1744.  
  1745.                 (if (bitand studio_preset_install_a @studio_preset_hunter)
  1746.  
  1747.                     (run ("%s PRESET installdata/registry/presets/standard.hunter" studio_regedit))
  1748.                 )
  1749.  
  1750.                 (if (bitand studio_preset_install_a @studio_preset_printer)
  1751.  
  1752.                     (run ("%s PRESET installdata/registry/presets/standard.printer" studio_regedit))
  1753.                 )
  1754.  
  1755.                 (if (bitand studio_preset_install_a @studio_preset_context)
  1756.  
  1757.                     (run ("%s PRESET installdata/registry/presets/standard.context" studio_regedit))
  1758.                 )
  1759.  
  1760.                 (if (bitand studio_preset_install_a @studio_preset_syntax)
  1761.  
  1762.                     (run ("%s PRESET installdata/registry/presets/standard.syntax" studio_regedit))
  1763.                 )
  1764.  
  1765.                 (if (bitand studio_preset_install_a @studio_preset_layout)
  1766.  
  1767.                     (run ("%s PRESET installdata/registry/presets/standard.layout" studio_regedit))
  1768.                 )
  1769.  
  1770.                 (if (bitand studio_preset_install_a @studio_preset_mouse)
  1771.  
  1772.                     (run ("%s PRESET installdata/locale/%s/standard.mouse" studio_regedit studio_language))
  1773.                 )
  1774.  
  1775.                 (if (bitand studio_preset_install_a @studio_preset_menu)
  1776.  
  1777.                     (run ("%s PRESET installdata/locale/%s/standard.menu" studio_regedit studio_language))
  1778.                 )
  1779.  
  1780.                 (if (bitand studio_preset_install_b @studio_preset_api)
  1781.  
  1782.                     (run ("%s PRESET installdata/registry/presets/standard.api" studio_regedit))
  1783.                 )
  1784.  
  1785.                 (if (bitand studio_preset_install_b @studio_preset_project)
  1786.  
  1787.                     (run ("%s PRESET installdata/registry/presets/standard.project" studio_regedit))
  1788.                 )
  1789.  
  1790.                 (if (bitand studio_preset_install_b @studio_preset_references)
  1791.  
  1792.                     (run ("%s PRESET installdata/registry/presets/standard.references" studio_regedit))
  1793.                 )
  1794.  
  1795.                 (if (bitand studio_preset_install_b @studio_preset_gadgets)
  1796.  
  1797.                     (run ("%s PRESET installdata/locale/%s/standard.gadgets" studio_regedit studio_language))
  1798.                 )
  1799.  
  1800.                 (if (bitand studio_preset_install_b @studio_preset_tabs)
  1801.  
  1802.                     (run ("%s PRESET installdata/registry/presets/standard.tabs" studio_regedit))
  1803.                 )
  1804.  
  1805.                 (if (bitand studio_preset_install_b @studio_preset_keyboard)
  1806.  
  1807.                     (run ("%s PRESET installdata/registry/presets/standard.keyboard" studio_regedit))
  1808.                 )
  1809.  
  1810.                 (if (bitand studio_preset_install_b @studio_preset_templates)
  1811.  
  1812.                     (run ("%s PRESET installdata/registry/presets/standard.templates" studio_regedit))
  1813.                 )
  1814.  
  1815.                 (if (bitand studio_preset_install_b @studio_preset_misc)
  1816.  
  1817.                     (run ("%s PRESET installdata/registry/presets/standard.misc" studio_regedit))
  1818.                 )
  1819.  
  1820.                 (if (bitand studio_preset_install_b @studio_preset_dictionary)
  1821.  
  1822.                     (run ("%s PRESET installdata/registry/presets/standard.dictionary" studio_regedit))
  1823.                 )
  1824.             )
  1825.         )
  1826.  
  1827.         (run "installdata/programs/unprotect basedir=golded:etc/registry")
  1828.     )
  1829. )
  1830.  
  1831. ; install components (input: <studio_components>, <studio_starter>, <studio_manual>)
  1832.  
  1833. (procedure studio_proc_installcomponents
  1834.  
  1835.     (
  1836.         ; always install reqtools library
  1837.  
  1838.         (if (not (exists "golded:etc/libs/reqtools.library"))
  1839.  
  1840.             (
  1841.                 (copyfiles
  1842.  
  1843.                     (source "bonus/reqtools/reqtools.library")
  1844.  
  1845.                     (dest "golded:etc/libs")
  1846.                 )
  1847.  
  1848.                 (run "assign libs: golded:etc/libs add")
  1849.             )
  1850.         )
  1851.  
  1852.         ; install editor
  1853.  
  1854.         (if (bitand studio_components @studio_components_golded)
  1855.  
  1856.             (
  1857.                 ; always install 68000 binary (all other versions are optional and untested)
  1858.  
  1859.                 (set studio_cpu @studio_cpu_68000)
  1860.  
  1861.                 (if (= studio_cpu @studio_cpu_68000)
  1862.  
  1863.                     (set studio_binary "68000")
  1864.                 )
  1865.  
  1866.                 (if (= studio_cpu @studio_cpu_68020)
  1867.  
  1868.                     (set studio_binary "68020")
  1869.                 )
  1870.  
  1871.                 (if (= studio_cpu @studio_cpu_68030)
  1872.  
  1873.                     (set studio_binary "68030")
  1874.                 )
  1875.  
  1876.                 (if (= studio_cpu @studio_cpu_68040)
  1877.  
  1878.                     (set studio_binary "68040")
  1879.                 )
  1880.  
  1881.                 (if (= studio_cpu @studio_cpu_68060)
  1882.  
  1883.                     (set studio_binary "68060")
  1884.                 )
  1885.  
  1886.                 (copyfiles
  1887.  
  1888.                     (source (cat "installdata/cpu/" studio_binary "/GoldED"))
  1889.  
  1890.                     (dest "golded:")
  1891.                 )
  1892.  
  1893.                 (copyfiles
  1894.  
  1895.                     (source "installdata/golded/GoldED.info")
  1896.  
  1897.                     (dest "golded:")
  1898.                 )
  1899.  
  1900.                 (copyfiles
  1901.  
  1902.                     (source "installdata/golded/etc")
  1903.  
  1904.                     (dest "golded:etc")
  1905.  
  1906.                     (all)
  1907.                 )
  1908.  
  1909.                 ; copy "demo.readme" (used to detect demo installation)
  1910.  
  1911.                 (if (exists "installdata/golded/demo.readme")
  1912.  
  1913.                     (copyfiles
  1914.  
  1915.                         (source "installdata/golded/demo.readme")
  1916.  
  1917.                         (dest "golded:")
  1918.                     )
  1919.                 )
  1920.  
  1921.                 (run "assign fonts: golded:etc/fonts add")
  1922.  
  1923.                 ; request reboot
  1924.  
  1925.                 (set studio_reboot 1)
  1926.             )
  1927.         )
  1928.  
  1929.         ; install presets and registry
  1930.  
  1931.         (if (bitand studio_components @studio_components_config)
  1932.  
  1933.             (
  1934.                 (studio_proc_chooselanguage)
  1935.  
  1936.                 (run ("%s PRESET installdata/registry/presets/standard.interface"  studio_regedit))
  1937.                 (run ("%s PRESET installdata/registry/presets/standard.hunter"     studio_regedit))
  1938.                 (run ("%s PRESET installdata/registry/presets/standard.printer"    studio_regedit))
  1939.                 (run ("%s PRESET installdata/registry/presets/standard.context"    studio_regedit))
  1940.                 (run ("%s PRESET installdata/registry/presets/standard.syntax"     studio_regedit))
  1941.                 (run ("%s PRESET installdata/registry/presets/standard.layout"     studio_regedit))
  1942.                 (run ("%s PRESET installdata/registry/presets/standard.api"        studio_regedit))
  1943.                 (run ("%s PRESET installdata/registry/presets/standard.project"    studio_regedit))
  1944.                 (run ("%s PRESET installdata/registry/presets/standard.references" studio_regedit))
  1945.                 (run ("%s PRESET installdata/registry/presets/standard.tabs"       studio_regedit))
  1946.                 (run ("%s PRESET installdata/registry/presets/standard.keyboard"   studio_regedit))
  1947.                 (run ("%s PRESET installdata/registry/presets/standard.templates"  studio_regedit))
  1948.                 (run ("%s PRESET installdata/registry/presets/standard.misc"       studio_regedit))
  1949.                 (run ("%s PRESET installdata/registry/presets/standard.dictionary" studio_regedit))
  1950.  
  1951.                 ; localized presets
  1952.  
  1953.                 (run ("%s PRESET installdata/locale/%s/standard.mouse  " studio_regedit studio_language))
  1954.                 (run ("%s PRESET installdata/locale/%s/standard.menu   " studio_regedit studio_language))
  1955.                 (run ("%s PRESET installdata/locale/%s/standard.gadgets" studio_regedit studio_language))
  1956.                 (run ("%s PRESET installdata/locale/%s/standard.display" studio_regedit studio_language))
  1957.  
  1958.                 ; choose a font
  1959.  
  1960.                 (run bin "installdata/programs/installfont file=golded:etc/registry/presets/standard.display")
  1961.  
  1962.                 ; install registry
  1963.  
  1964.                 (copyfiles
  1965.  
  1966.                     (source "installdata/registry/registry")
  1967.  
  1968.                     (dest "golded:etc/registry")
  1969.                 )
  1970.  
  1971.                 ; remove write protection for material copied from CD-ROM
  1972.  
  1973.                 (run "installdata/programs/unprotect basedir=golded:etc/registry")
  1974.  
  1975.                 ; save install path and serial code in registry
  1976.  
  1977.                 (run ("golded:add-ons/regedit/regedit SERIAL=\"%s\" INSTALLPATH=\"%s\"" studio_serial (expandpath "")))
  1978.             )
  1979.         )
  1980.  
  1981.         ; install starters
  1982.  
  1983.         (if (bitand studio_components @studio_components_starter)
  1984.  
  1985.             (
  1986.                 (if (bitand studio_starter @studio_starter_ed)
  1987.  
  1988.                     (copyfiles
  1989.  
  1990.                         (source "installdata/golded/ed")
  1991.  
  1992.                         (dest "golded:")
  1993.                     )
  1994.                 )
  1995.  
  1996.                 (if (bitand studio_starter @studio_starter_appicon)
  1997.  
  1998.                     (
  1999.                         (copyfiles
  2000.  
  2001.                             (source "installdata/golded/Drag & Drop")
  2002.  
  2003.                             (dest "golded:")
  2004.                         )
  2005.  
  2006.                         (copyfiles
  2007.  
  2008.                             (source "installdata/golded/Drag & Drop.info")
  2009.  
  2010.                             (dest "golded:")
  2011.                         )
  2012.                     )
  2013.                 )
  2014.             )
  2015.         )
  2016.  
  2017.         ; install documentation
  2018.  
  2019.         (if (bitand studio_components @studio_components_docs)
  2020.  
  2021.             (
  2022.                 (if (bitand studio_manual @studio_manual_history)
  2023.  
  2024.                     (copyfiles
  2025.  
  2026.                         (source "installdata/golded/History")
  2027.  
  2028.                         (dest "golded:")
  2029.                     )
  2030.                 )
  2031.  
  2032.                 (if (bitand studio_manual @studio_manual_licence)
  2033.  
  2034.                     (
  2035.                         (copyfiles
  2036.  
  2037.                             (source "installdata/golded/Licence")
  2038.  
  2039.                             (dest "golded:")
  2040.                         )
  2041.  
  2042.                         (copyfiles
  2043.  
  2044.                             (source "installdata/golded/Licence.info")
  2045.  
  2046.                             (dest "golded:")
  2047.                         )
  2048.                     )
  2049.                 )
  2050.  
  2051.                 (if (bitand studio_manual @studio_manual_order)
  2052.  
  2053.                     (
  2054.                         (copyfiles
  2055.  
  2056.                             (source "installdata/golded/Order")
  2057.  
  2058.                             (dest "golded:")
  2059.                         )
  2060.  
  2061.                         (copyfiles
  2062.  
  2063.                             (source "installdata/golded/Order.info")
  2064.  
  2065.                             (dest "golded:")
  2066.                         )
  2067.                     )
  2068.                 )
  2069.  
  2070.                 (if (bitand studio_manual @studio_manual_english)
  2071.  
  2072.                     (
  2073.                         (copyfiles
  2074.  
  2075.                             (source "installdata/golded/Manual")
  2076.  
  2077.                             (dest "golded:")
  2078.                         )
  2079.  
  2080.                         (copyfiles
  2081.  
  2082.                             (source "installdata/golded/Manual.info")
  2083.  
  2084.                             (dest "golded:")
  2085.                         )
  2086.                     )
  2087.                 )
  2088.  
  2089.                 (if (bitand studio_manual @studio_manual_german)
  2090.  
  2091.                     (
  2092.                         (copyfiles
  2093.  
  2094.                             (source "installdata/golded/Anleitung")
  2095.  
  2096.                             (dest "golded:")
  2097.                         )
  2098.  
  2099.                         (copyfiles
  2100.  
  2101.                             (source "installdata/golded/Anleitung.info")
  2102.  
  2103.                             (dest "golded:")
  2104.                         )
  2105.                     )
  2106.                 )
  2107.             )
  2108.         )
  2109.  
  2110.         ; install screenshot
  2111.  
  2112.         (if (bitand studio_components @studio_components_screenshot)
  2113.  
  2114.             (
  2115.                 (copyfiles
  2116.  
  2117.                     (source "installdata/golded/Screenshot")
  2118.  
  2119.                     (dest "golded:")
  2120.                 )
  2121.  
  2122.                 (copyfiles
  2123.  
  2124.                     (source "installdata/golded/Screenshot.info")
  2125.  
  2126.                     (dest "golded:")
  2127.                 )
  2128.             )
  2129.         )
  2130.  
  2131.         ; install developer material
  2132.  
  2133.         (if (bitand studio_components @studio_components_developer)
  2134.  
  2135.             (
  2136.                 (makedir "golded:developer")
  2137.  
  2138.                 (copyfiles
  2139.  
  2140.                     (source "installdata/golded/developer")
  2141.  
  2142.                     (dest "golded:developer")
  2143.  
  2144.                     (all)
  2145.                 )
  2146.             )
  2147.         )
  2148.  
  2149.         ; install recovery program
  2150.  
  2151.         (if (bitand studio_components @studio_components_recover)
  2152.  
  2153.             (
  2154.                 (copyfiles
  2155.  
  2156.                     (source "installdata/golded/Recover")
  2157.  
  2158.                     (dest "golded:")
  2159.                 )
  2160.  
  2161.                 (copyfiles
  2162.  
  2163.                     (source "installdata/golded/Recover.info")
  2164.  
  2165.                     (dest "golded:")
  2166.                 )
  2167.             )
  2168.         )
  2169.  
  2170.         ; install add-onds (to-do)
  2171.  
  2172.         (if (bitand studio_components @studio_components_addons)
  2173.  
  2174.             (
  2175.                 (working #studio_addons_install)
  2176.  
  2177.                 (if (bitand studio_addons_a @studio_addons_envwww)
  2178.  
  2179.                     (
  2180.                         (set studio_installpath "installdata/golded/add-ons/envWWW44/setup")
  2181.  
  2182.                         (studio_proc_install)
  2183.                     )
  2184.                 )
  2185.  
  2186.                 (if (bitand studio_addons_a @studio_addons_envgde)
  2187.  
  2188.                     (
  2189.                         (set studio_installpath "installdata/golded/add-ons/envGDE17/setup")
  2190.  
  2191.                         (studio_proc_install)
  2192.                     )
  2193.                 )
  2194.  
  2195.                 (if (bitand studio_addons_a @studio_addons_envthe)
  2196.  
  2197.                     (
  2198.                         (set studio_installpath "installdata/golded/add-ons/envTHE10/setup")
  2199.  
  2200.                         (studio_proc_install)
  2201.                     )
  2202.                 )
  2203.  
  2204.                 (if (bitand studio_addons_a @studio_addons_envstm)
  2205.  
  2206.                     (
  2207.                         (set studio_installpath "installdata/golded/add-ons/envSTM27/setup")
  2208.  
  2209.                         (studio_proc_install)
  2210.                     )
  2211.                 )
  2212.  
  2213.                 (if (bitand studio_addons_a @studio_addons_envsas)
  2214.  
  2215.                     (
  2216.                         (set studio_installpath "installdata/golded/add-ons/envSAS12/setup")
  2217.  
  2218.                         (studio_proc_install)
  2219.                     )
  2220.                 )
  2221.  
  2222.                 (if (bitand studio_addons_a @studio_addons_envcpp)
  2223.  
  2224.                     (
  2225.                         (set studio_installpath "installdata/golded/add-ons/envCPP27/setup")
  2226.  
  2227.                         (studio_proc_install)
  2228.                     )
  2229.                 )
  2230.  
  2231.                 (if (bitand studio_addons_b @studio_addons_envasm)
  2232.  
  2233.                     (
  2234.                         (set studio_installpath "installdata/golded/add-ons/envASM14/setup")
  2235.  
  2236.                         (studio_proc_install)
  2237.                     )
  2238.                 )
  2239.  
  2240.                 (if (bitand studio_addons_b @studio_addons_envbat)
  2241.  
  2242.                     (
  2243.                         (set studio_installpath "installdata/golded/add-ons/envBAT14/setup")
  2244.  
  2245.                         (studio_proc_install)
  2246.                     )
  2247.                 )
  2248.  
  2249.                 (if (bitand studio_addons_b @studio_addons_envfax)
  2250.  
  2251.                     (
  2252.                         (set studio_installpath "installdata/golded/add-ons/envFAX10/setup")
  2253.  
  2254.                         (studio_proc_install)
  2255.                     )
  2256.                 )
  2257.  
  2258.                 (if (bitand studio_addons_b @studio_addons_envmdt)
  2259.  
  2260.                     (
  2261.                         (set studio_installpath "installdata/golded/add-ons/envMDT23/setup")
  2262.  
  2263.                         (studio_proc_install)
  2264.                     )
  2265.                 )
  2266.  
  2267.                 (if (bitand studio_addons_b @studio_addons_envthr)
  2268.  
  2269.                     (
  2270.                         (set studio_installpath "installdata/golded/add-ons/envTHR10/setup")
  2271.  
  2272.                         (studio_proc_install)
  2273.                     )
  2274.                 )
  2275.  
  2276.                 (if (bitand studio_addons_b @studio_addons_envjcy)
  2277.  
  2278.                     (
  2279.                         (set studio_installpath "installdata/golded/add-ons/envJCY51/setup")
  2280.  
  2281.                         (studio_proc_install)
  2282.                     )
  2283.                 )
  2284.  
  2285.                 (if (bitand studio_addons_c @studio_addons_envprt)
  2286.  
  2287.                     (
  2288.                         (set studio_installpath "installdata/golded/add-ons/envPRT63/setup")
  2289.  
  2290.                         (studio_proc_install)
  2291.                     )
  2292.                 )
  2293.  
  2294.                 (if (bitand studio_addons_c @studio_addons_envrcs)
  2295.  
  2296.                     (
  2297.                         (set studio_installpath "installdata/golded/add-ons/envRCS11/setup")
  2298.  
  2299.                         (studio_proc_install)
  2300.                     )
  2301.                 )
  2302.  
  2303.                 (if (bitand studio_addons_c @studio_addons_envins)
  2304.  
  2305.                     (
  2306.                         (set studio_installpath "installdata/golded/add-ons/envINS13/setup")
  2307.  
  2308.                         (studio_proc_install)
  2309.                     )
  2310.                 )
  2311.  
  2312.                 (if (bitand studio_addons_c @studio_addons_envwrp)
  2313.  
  2314.                     (
  2315.                         (set studio_installpath "installdata/golded/add-ons/envWRP11/setup")
  2316.  
  2317.                         (studio_proc_install)
  2318.                     )
  2319.                 )
  2320.  
  2321.                 (if (bitand studio_addons_c @studio_addons_envreg)
  2322.  
  2323.                     (
  2324.                         (set studio_installpath "installdata/golded/add-ons/envREG11/setup")
  2325.  
  2326.                         (studio_proc_install)
  2327.                     )
  2328.                 )
  2329.  
  2330.                 (if (bitand studio_addons_c @studio_addons_envswp)
  2331.  
  2332.                     (
  2333.                         (set studio_installpath "installdata/golded/add-ons/envSWP10/setup")
  2334.  
  2335.                         (studio_proc_install)
  2336.                     )
  2337.                 )
  2338.  
  2339.                 (if (bitand studio_addons_d @studio_addons_envrex)
  2340.  
  2341.                     (
  2342.                         (set studio_installpath "installdata/golded/add-ons/envREX10/setup")
  2343.  
  2344.                         (studio_proc_install)
  2345.                     )
  2346.                 )
  2347.             )
  2348.         )
  2349.  
  2350.         (run "installdata/programs/unprotect basedir=golded:")
  2351.     )
  2352. )
  2353.  
  2354. ; remove components (input: <studio_remove>)
  2355.  
  2356. (procedure studio_proc_removecomponents
  2357.  
  2358.     (
  2359.         ; remove editor
  2360.  
  2361.         (if (bitand studio_remove @studio_components_golded)
  2362.  
  2363.             (delete "golded:GoldED")
  2364.         )
  2365.  
  2366.         ; remove starters
  2367.  
  2368.         (if (bitand studio_remove @studio_components_starter)
  2369.  
  2370.             (
  2371.                 (if (bitand studio_removestarter @studio_starter_ed)
  2372.  
  2373.                     (delete "golded:ed")
  2374.                 )
  2375.  
  2376.                 (if (bitand studio_removestarter @studio_starter_appicon)
  2377.  
  2378.                     (delete "golded:Drag & drop")
  2379.                 )
  2380.             )
  2381.         )
  2382.  
  2383.         ; remove documentation
  2384.  
  2385.         (if (bitand studio_remove @studio_components_docs)
  2386.  
  2387.             (
  2388.                 (if (bitand studio_removemanual @studio_manual_history)
  2389.  
  2390.                     (delete "golded:History")
  2391.                 )
  2392.  
  2393.                 (if (bitand studio_removemanual @studio_manual_licence)
  2394.  
  2395.                     (delete "golded:Licence")
  2396.                 )
  2397.  
  2398.                 (if (bitand studio_removemanual @studio_manual_order)
  2399.  
  2400.                     (delete "golded:Order")
  2401.                 )
  2402.  
  2403.                 (if (bitand studio_removemanual @studio_manual_english)
  2404.  
  2405.                     (delete "golded:Manual")
  2406.                 )
  2407.  
  2408.                 (if (bitand studio_removemanual @studio_manual_german)
  2409.  
  2410.                     (delete "golded:Anleitung")
  2411.                 )
  2412.             )
  2413.         )
  2414.  
  2415.         ; remove developer material
  2416.  
  2417.         (if (bitand studio_remove @studio_components_developer)
  2418.  
  2419.             ("run delete golded:developer all quiet")
  2420.         )
  2421.  
  2422.         ; remove screenshot
  2423.  
  2424.         (if (bitand studio_remove @studio_components_screenshot)
  2425.  
  2426.             (delete "golded:Screenshot")
  2427.         )
  2428.  
  2429.         ; remove recovery program
  2430.  
  2431.         (if (bitand studio_remove @studio_components_recover)
  2432.  
  2433.             (delete "golded:Recover")
  2434.         )
  2435.  
  2436.         ; remove add-ons
  2437.  
  2438.         (if (bitand studio_remove @studio_components_addons)
  2439.  
  2440.             (
  2441.                 (if (bitand studio_removeaddons_a @studio_addons_envwww)
  2442.  
  2443.                     (
  2444.                         (set studio_installpath "installdata/golded/add-ons/envWWW44/setup")
  2445.  
  2446.                         (studio_proc_uninstall)
  2447.                     )
  2448.                 )
  2449.  
  2450.                 (if (bitand studio_removeaddons_a @studio_addons_envgde)
  2451.  
  2452.                     (
  2453.                         (set studio_installpath "installdata/golded/add-ons/envGDE17/setup")
  2454.  
  2455.                         (studio_proc_uninstall)
  2456.                     )
  2457.                 )
  2458.  
  2459.                 (if (bitand studio_removeaddons_a @studio_addons_envthe)
  2460.  
  2461.                     (
  2462.                         (set studio_installpath "installdata/golded/add-ons/envTHE10/setup")
  2463.  
  2464.                         (studio_proc_uninstall)
  2465.                     )
  2466.                 )
  2467.  
  2468.                 (if (bitand studio_removeaddons_a @studio_addons_envstm)
  2469.  
  2470.                     (
  2471.                         (set studio_installpath "installdata/golded/add-ons/envSTM27/setup")
  2472.  
  2473.                         (studio_proc_uninstall)
  2474.                     )
  2475.                 )
  2476.  
  2477.                 (if (bitand studio_removeaddons_a @studio_addons_envsas)
  2478.  
  2479.                     (
  2480.                         (set studio_installpath "installdata/golded/add-ons/envSAS12/setup")
  2481.  
  2482.                         (studio_proc_uninstall)
  2483.                     )
  2484.                 )
  2485.  
  2486.                 (if (bitand studio_removeaddons_a @studio_addons_envcpp)
  2487.  
  2488.                     (
  2489.                         (set studio_installpath "installdata/golded/add-ons/envCPP27/setup")
  2490.  
  2491.                         (studio_proc_uninstall)
  2492.                     )
  2493.                 )
  2494.  
  2495.                 (if (bitand studio_removeaddons_b @studio_addons_envasm)
  2496.  
  2497.                     (
  2498.                         (set studio_installpath "installdata/golded/add-ons/envASM14/setup")
  2499.  
  2500.                         (studio_proc_uninstall)
  2501.                     )
  2502.                 )
  2503.  
  2504.                 (if (bitand studio_removeaddons_b @studio_addons_envbat)
  2505.  
  2506.                     (
  2507.                         (set studio_installpath "installdata/golded/add-ons/envBAT14/setup")
  2508.  
  2509.                         (studio_proc_uninstall)
  2510.                     )
  2511.                 )
  2512.  
  2513.                 (if (bitand studio_removeaddons_b @studio_addons_envfax)
  2514.  
  2515.                     (
  2516.                         (set studio_installpath "installdata/golded/add-ons/envFAX10/setup")
  2517.  
  2518.                         (studio_proc_uninstall)
  2519.                     )
  2520.                 )
  2521.  
  2522.                 (if (bitand studio_removeaddons_b @studio_addons_envmdt)
  2523.  
  2524.                     (
  2525.                         (set studio_installpath "installdata/golded/add-ons/envMDT23/setup")
  2526.  
  2527.                         (studio_proc_uninstall)
  2528.                     )
  2529.                 )
  2530.  
  2531.                 (if (bitand studio_removeaddons_b @studio_addons_envthr)
  2532.  
  2533.                     (
  2534.                         (set studio_installpath "installdata/golded/add-ons/envTHR10/setup")
  2535.  
  2536.                         (studio_proc_uninstall)
  2537.                     )
  2538.                 )
  2539.  
  2540.                 (if (bitand studio_removeaddons_b @studio_addons_envjcy)
  2541.  
  2542.                     (
  2543.                         (set studio_installpath "installdata/golded/add-ons/envJCY51/setup")
  2544.  
  2545.                         (studio_proc_uninstall)
  2546.                     )
  2547.                 )
  2548.  
  2549.                 (if (bitand studio_removeaddons_c @studio_addons_envprt)
  2550.  
  2551.                     (
  2552.                         (set studio_installpath "installdata/golded/add-ons/envPRT63/setup")
  2553.  
  2554.                         (studio_proc_uninstall)
  2555.                     )
  2556.                 )
  2557.  
  2558.                 (if (bitand studio_removeaddons_c @studio_addons_envrcs)
  2559.  
  2560.                     (
  2561.                         (set studio_installpath "installdata/golded/add-ons/envRCS11/setup")
  2562.  
  2563.                         (studio_proc_uninstall)
  2564.                     )
  2565.                 )
  2566.  
  2567.                 (if (bitand studio_removeaddons_c @studio_addons_envins)
  2568.  
  2569.                     (
  2570.                         (set studio_installpath "installdata/golded/add-ons/envINS13/setup")
  2571.  
  2572.                         (studio_proc_uninstall)
  2573.                     )
  2574.                 )
  2575.  
  2576.                 (if (bitand studio_removeaddons_c @studio_addons_envwrp)
  2577.  
  2578.                     (
  2579.                         (set studio_installpath "installdata/golded/add-ons/envWRP11/setup")
  2580.  
  2581.                         (studio_proc_uninstall)
  2582.                     )
  2583.                 )
  2584.  
  2585.                 (if (bitand studio_removeaddons_c @studio_addons_envreg)
  2586.  
  2587.                     (
  2588.                         (set studio_installpath "installdata/golded/add-ons/envREG11/setup")
  2589.  
  2590.                         (studio_proc_uninstall)
  2591.                     )
  2592.                 )
  2593.  
  2594.                 (if (bitand studio_removeaddons_c @studio_addons_envswp)
  2595.  
  2596.                     (
  2597.                         (set studio_installpath "installdata/golded/add-ons/envSWP10/setup")
  2598.  
  2599.                         (studio_proc_uninstall)
  2600.                     )
  2601.                 )
  2602.  
  2603.                 (if (bitand studio_removeaddons_d @studio_addons_envrex)
  2604.  
  2605.                     (
  2606.                         (set studio_installpath "installdata/golded/add-ons/envREX10/setup")
  2607.  
  2608.                         (studio_proc_uninstall)
  2609.                     )
  2610.                 )
  2611.             )
  2612.         )
  2613.     )
  2614. )
  2615.  
  2616. ; ------------------------------ error handling --------------------------------
  2617.  
  2618. (onerror
  2619.  
  2620.     (studio_proc_cleanup)
  2621.  
  2622.     (if (> @ioerr 0) 
  2623.  
  2624.         (
  2625.             ; set return code
  2626.  
  2627.             (delete "env:studioinstall")
  2628.  
  2629.             (textfile
  2630.  
  2631.                 (dest "env:studioinstall")
  2632.  
  2633.                 (append "INSTALLERROR")
  2634.             )
  2635.  
  2636.             (message
  2637.  
  2638.                 (cat #studio_installerror @ioerr)
  2639.             )
  2640.         )
  2641.     )
  2642.  
  2643.     (exit (quiet))
  2644. )
  2645.  
  2646. ; ------------------- check return code of previous installation ---------------
  2647.  
  2648. (if (exists "env:studioinstall" (noreq))
  2649.  
  2650.     ; (getenv) may not be used without checking if var exists (installer bug)
  2651.  
  2652.     (set studio_install_code
  2653.  
  2654.         (getenv "studioinstall")
  2655.     )
  2656.  
  2657.     (set studio_install_code "OK")
  2658. )
  2659.  
  2660. (if (= studio_install_code "INSTALLERROR")
  2661.  
  2662.     (
  2663.         (message #studio_notify)
  2664.     )
  2665. )
  2666.  
  2667. (delete "env:studioinstall")
  2668.  
  2669. (textfile
  2670.  
  2671.     (dest "env:studioinstall")
  2672.  
  2673.     (append "INCOMPLETE")
  2674. )
  2675.  
  2676. ; ---------------------------------- check setup -------------------------------
  2677.  
  2678. (if (exists "golded6.readme")
  2679.  
  2680.     (set studio_commercial 0)
  2681.     (set studio_commercial 1)
  2682. )
  2683.  
  2684. ; ----------------------------- find old installation --------------------------
  2685.  
  2686. (if (exists "golded:" (noreq))
  2687.  
  2688.     (
  2689.         (set studio_installdir (pathonly (expandpath "golded:")))
  2690.  
  2691.         (set studio_found
  2692.  
  2693.             (askbool
  2694.  
  2695.                 (prompt #studio_found)
  2696.  
  2697.                 (choices
  2698.  
  2699.                     #studio_found_confirm
  2700.                     #studio_found_newinstall
  2701.                 )
  2702.  
  2703.                 (help #studio_found_help)
  2704.             )
  2705.         )
  2706.     )
  2707.  
  2708.     (if (exists "work:" (noreq))
  2709.  
  2710.         (set studio_installdir "work:")
  2711.         (set studio_installdir "sys:")
  2712.     )
  2713. )
  2714.  
  2715. ; ---------------------------------- welcome -----------------------------------
  2716.  
  2717. (if (not (exists "env:" (noreq)))
  2718.  
  2719.     (
  2720.         (makedir "ram:env")
  2721.  
  2722.         (makeassign "env" "ram:")
  2723.     )
  2724. )
  2725.  
  2726. (if (= studio_found @studio_missing)
  2727.  
  2728.     (
  2729.         (message #studio_welcome)
  2730.  
  2731.         (welcome)
  2732.     )
  2733. )
  2734.  
  2735. (run "run <>NIL: installdata/programs/stopgolded")
  2736.  
  2737. ; --------------------------------- choose a path ------------------------------
  2738.  
  2739. ; create installation directory and temporary assign
  2740.  
  2741. (while (= studio_path "")
  2742.  
  2743.     (if (= studio_found @studio_found)
  2744.  
  2745.         (set studio_path (expandpath "golded:"))
  2746.  
  2747.         ; ELSE
  2748.  
  2749.         (
  2750.             ; keep requesting path until valid choice is made
  2751.  
  2752.             (set studio_repeat 1)
  2753.  
  2754.             (while (= studio_repeat 1)
  2755.  
  2756.                 (set studio_installdir
  2757.  
  2758.                     (askdir
  2759.  
  2760.                         (prompt #studio_path_choose)
  2761.  
  2762.                         (help #studio_path_choose_help)
  2763.  
  2764.                         (default studio_installdir)
  2765.                     )
  2766.                 )
  2767.  
  2768.                 (if (exists studio_installdir)
  2769.  
  2770.                     (set studio_repeat 0)
  2771.                     (set studio_repeat 1)
  2772.                 )
  2773.             )
  2774.  
  2775.             (set studio_path (tackon studio_installdir "Studio"))
  2776.  
  2777.             (if (exists studio_path)
  2778.  
  2779.                 (
  2780.                     (set studio_overwrite
  2781.  
  2782.                         (askbool
  2783.  
  2784.                             (prompt #studio_overwrite)
  2785.  
  2786.                             (choices
  2787.  
  2788.                                 #studio_overwrite_install
  2789.                                 #studio_overwrite_cancel
  2790.                             )
  2791.  
  2792.                             (help #studio_overwrite_help)
  2793.                         )
  2794.                     )
  2795.  
  2796.                     (if (= studio_overwrite 0)
  2797.  
  2798.                         (set studio_path "")
  2799.                     )
  2800.                 )
  2801.             )
  2802.         )
  2803.     )
  2804.  
  2805.     (if (<> studio_path "")
  2806.  
  2807.         (
  2808.             (if (exists (tackon studio_path "GoldED" (noreq)))
  2809.  
  2810.                 (
  2811.                     (if (exists (tackon studio_path "demo.readme"))
  2812.  
  2813.                         (set studio_upgradable (= studio_commercial 0))
  2814.                         (set studio_upgradable (= studio_commercial 1))
  2815.                     )
  2816.                 )
  2817.  
  2818.                 (set studio_upgradable 1)
  2819.             )
  2820.  
  2821.             ; installation of commercial version over demo version (and vice versa) is not supported
  2822.  
  2823.             (if (= studio_upgradable 1)
  2824.  
  2825.                 (
  2826.                     (set @default-dest studio_path)
  2827.  
  2828.                     ; check existing installation
  2829.  
  2830.                     (if (exists studio_path (noreq))
  2831.  
  2832.                         (
  2833.                             ; fairly complete installation ?
  2834.  
  2835.                             (if (and (exists (tackon studio_path "golded")) (exists (tackon studio_path "etc/registry/registry")))
  2836.  
  2837.                                 (
  2838.                                     (set studio_update studio_path)
  2839.  
  2840.                                     (studio_proc_checksetup)
  2841.                                 )
  2842.  
  2843.                                 (
  2844.                                     ; repeat full initial installation
  2845.  
  2846.                                     (set studio_update "")
  2847.                                 )
  2848.                             )
  2849.                         )
  2850.  
  2851.                         (makedir studio_path)
  2852.                     )
  2853.  
  2854.                     ; create assign
  2855.  
  2856.                     (makeassign "golded" studio_path)
  2857.  
  2858.                     ; verify assign
  2859.  
  2860.                     (if (not (exists "golded:" (noreq)))
  2861.  
  2862.                         (
  2863.                             (set studio_path "")
  2864.  
  2865.                             (set studio_found @studio_missing)
  2866.                         )
  2867.                     )
  2868.                 )
  2869.  
  2870.                 ; ELSE
  2871.  
  2872.                 (
  2873.                     (message #studio_demo)
  2874.  
  2875.                     (set studio_path "")
  2876.  
  2877.                     (set studio_found @studio_missing)
  2878.                 )
  2879.             )
  2880.         )
  2881.     )
  2882. )
  2883.  
  2884. ; install drawer icon
  2885.  
  2886. (set studio_drawer (cat studio_path ".info"))
  2887.  
  2888. (if (not (exists studio_drawer))
  2889.  
  2890.     (
  2891.         (copyfiles
  2892.  
  2893.             (source "installdata/workbench/drawer.info")
  2894.  
  2895.             (dest studio_installdir)
  2896.  
  2897.             (newname (fileonly studio_drawer))
  2898.         )
  2899.  
  2900.         (tooltype
  2901.  
  2902.             (dest studio_drawer)
  2903.  
  2904.             (noposition)
  2905.         )
  2906.     )
  2907. )
  2908.  
  2909. ; validate directory structure
  2910.  
  2911. (makedir "golded:add-ons")
  2912. (makedir "golded:add-ons/regedit")
  2913. (makedir "golded:etc")
  2914. (makedir "golded:etc/api")
  2915. (makedir "golded:etc/autorun")
  2916. (makedir "golded:etc/catalogs")
  2917. (makedir "golded:etc/charsets")
  2918. (makedir "golded:etc/env")
  2919. (makedir "golded:etc/fonts")
  2920. (makedir "golded:etc/images")
  2921. (makedir "golded:etc/images/sys")
  2922. (makedir "golded:etc/images/toolbar")
  2923. (makedir "golded:etc/images/wb")
  2924. (makedir "golded:etc/libs")
  2925. (makedir "golded:etc/recordings")
  2926. (makedir "golded:etc/registry")
  2927. (makedir "golded:etc/registry/presets")
  2928. (makedir "golded:etc/rexx")
  2929. (makedir "golded:etc/scanner")
  2930. (makedir "golded:etc/sessions")
  2931. (makedir "golded:etc/syntax")
  2932. (makedir "golded:etc/uninstall")
  2933. (makedir "golded:etc/updates")
  2934. (makedir "golded:etc/xref")
  2935.  
  2936. ; always update registry editor
  2937.  
  2938. (studio_proc_installregedit)
  2939.  
  2940. ; validate disk
  2941.  
  2942. (if (= studio_commercial 1)
  2943.  
  2944.     (if (<> (getsize "installdata/keyfile/keyfile") 67108864)
  2945.  
  2946.         (
  2947.             ; set return code
  2948.  
  2949.             (delete "env:studioinstall")
  2950.  
  2951.             (textfile
  2952.  
  2953.                 (dest "env:studioinstall")
  2954.  
  2955.                 (append "INSTALLERROR")
  2956.             )
  2957.  
  2958.             (abort #studio_ioerr)
  2959.         )
  2960.     )
  2961. )
  2962.  
  2963. ; ---------------------------------- register ----------------------------------
  2964.  
  2965. (if (or (= studio_yourname "") (= studio_serial ""))
  2966.  
  2967.     (while (= studio_registered 0)
  2968.  
  2969.         (set studio_repeat 1)
  2970.  
  2971.         (while (= studio_repeat 1)
  2972.  
  2973.             (set studio_yourname
  2974.  
  2975.                 (askstring
  2976.  
  2977.                     (prompt  #studio_yourname)
  2978.                     (help    #studio_yourname_help)
  2979.  
  2980.                     (default studio_yourname)
  2981.                 )
  2982.             )
  2983.  
  2984.             (if (= studio_yourname "")
  2985.  
  2986.                 (message #studio_yourname_help)
  2987.             )
  2988.  
  2989.             (if (= studio_yourname "")
  2990.  
  2991.                 (set studio_repeat 1)
  2992.                 (set studio_repeat 0)
  2993.             )
  2994.         )
  2995.  
  2996.         ; get serial number
  2997.  
  2998.         (if (= studio_commercial 1)
  2999.  
  3000.             (
  3001.                 (set studio_repeat 1)
  3002.  
  3003.                 (while (= studio_repeat 1)
  3004.  
  3005.                     (set studio_serial
  3006.  
  3007.                         (askstring
  3008.  
  3009.                             (prompt  #studio_serial)
  3010.                             (help    #studio_serial_help)
  3011.                             (default studio_serial)
  3012.                         )
  3013.                     )
  3014.  
  3015.                     (if (= studio_serial "")
  3016.  
  3017.                         (message #studio_serial_help)
  3018.                     )
  3019.  
  3020.                     (if (= (strlen studio_serial) 21)
  3021.  
  3022.                         (set studio_repeat 0)
  3023.                         (set studio_repeat 1)
  3024.                     )
  3025.                 )
  3026.             )
  3027.  
  3028.             ; ELSE
  3029.  
  3030.             (set studio_serial "Serial No. 0 (Demo)")
  3031.         )
  3032.  
  3033.         (set studio_registered
  3034.  
  3035.             (askbool
  3036.  
  3037.                 (prompt (#studio_check studio_yourname studio_serial))
  3038.  
  3039.                 (choices
  3040.  
  3041.                     #studio_check_continue
  3042.                     #studio_check_repeat
  3043.                 )
  3044.  
  3045.                 (help @askbool-help)
  3046.             )
  3047.         )
  3048.     )
  3049. )
  3050.  
  3051. ; ------------------------------- choose installation mode ---------------------
  3052.  
  3053. (set studio_installtype @studio_installtype_normal)
  3054.  
  3055. ; new installation ?
  3056.  
  3057. (if (= studio_update "")
  3058.  
  3059.     (set studio_installtype
  3060.  
  3061.         (askchoice
  3062.  
  3063.             (prompt #studio_installtype)
  3064.  
  3065.             (choices
  3066.  
  3067.                 (cat #studio_esc #studio_installtype_minimum)
  3068.                 (cat #studio_esc #studio_installtype_user)
  3069.                 (cat #studio_esc #studio_installtype_normal)
  3070.             )
  3071.  
  3072.             (help #studio_installtype_help)
  3073.  
  3074.             (default studio_installtype)
  3075.         )
  3076.     )
  3077. )
  3078.  
  3079. ; --------------------------------- choose components --------------------------
  3080.  
  3081. (if (= studio_update "")
  3082.  
  3083.     ; install new
  3084.  
  3085.     (
  3086.         (if (= studio_installtype @studio_installtype_minimum)
  3087.  
  3088.             (
  3089.                 (set studio_components @studio_components_golded)
  3090.                 (set studio_starter    0)
  3091.                 (set studio_manual     0)
  3092.                 (set studio_addons_a   0)
  3093.                 (set studio_addons_b   0)
  3094.                 (set studio_addons_c   0)
  3095.                 (set studio_addons_d   0)
  3096.             )
  3097.  
  3098.             ; typical installation
  3099.  
  3100.             (
  3101.                 (set studio_components (- @studio_components_all @studio_components_addons))
  3102.                 (set studio_starter    @studio_components_all)
  3103.                 (set studio_manual     @studio_components_all)
  3104.                 (set studio_addons_a   0)
  3105.                 (set studio_addons_b   0)
  3106.                 (set studio_addons_c   0)
  3107.                 (set studio_addons_d   0)
  3108.             )
  3109.         )
  3110.  
  3111.         (if (= studio_installtype @studio_installtype_user)
  3112.  
  3113.             (
  3114.                 ; choose categories
  3115.  
  3116.                 (set studio_components
  3117.  
  3118.                     (askoptions
  3119.  
  3120.                         (prompt #studio_components_install)
  3121.  
  3122.                         (choices
  3123.  
  3124.                             (cat #studio_esc #studio_components_golded)
  3125.                             (cat #studio_esc #studio_components_starter)
  3126.                             (cat #studio_esc #studio_components_docs)
  3127.                             (cat #studio_esc #studio_components_addons)
  3128.                             (cat #studio_esc #studio_components_developer)
  3129.                             (cat #studio_esc #studio_components_screenshot)
  3130.                             (cat #studio_esc #studio_components_recover)
  3131.                         )
  3132.  
  3133.                         (help #studio_components_help)
  3134.  
  3135.                         (default studio_components)
  3136.                     )
  3137.                 )
  3138.  
  3139.                 ; choose subcategories
  3140.  
  3141.                 (studio_proc_chooseparts)
  3142.             )
  3143.         )
  3144.  
  3145.         ; always install presets and registry when installing the editor
  3146.  
  3147.         (if (bitand studio_components @studio_components_golded)
  3148.  
  3149.             (
  3150.                 (studio_proc_chooselanguage)
  3151.  
  3152.                 (set studio_components (bitor studio_components @studio_components_config))
  3153.             )
  3154.         )
  3155.  
  3156.         ; edit user-startup
  3157.  
  3158.         (studio_proc_startup)
  3159.  
  3160.         ; install everything
  3161.  
  3162.         (studio_proc_installcomponents)
  3163.  
  3164.         (run "installdata/programs/moveicons <>NIL: grid dir=golded: dx=70 dy=75 columns=4 files GoldED Screenshot \"Drag & Drop\" Recover Licence Order Anleitung Manual")
  3165.  
  3166.         ; install autorun macro
  3167.  
  3168.         (copyfiles
  3169.  
  3170.             (source "installdata/autorun/golded.rexx")
  3171.  
  3172.             (dest "golded:etc/autorun")
  3173.         )
  3174.  
  3175.         (run "golded:add-ons/regedit/regedit autorunrexx golded:etc/autorun/golded.rexx autodelete")
  3176.     )
  3177.  
  3178.     ; install over old installation
  3179.  
  3180.     (
  3181.         ; keep showing update menu
  3182.  
  3183.         (while (<> studio_updatemode @updatemode_exit)
  3184.  
  3185.             (
  3186.                 (set studio_updatemode
  3187.  
  3188.                     (askchoice
  3189.  
  3190.                         (prompt studio_path)
  3191.  
  3192.                         (choices
  3193.  
  3194.                             (cat #studio_esc #studio_updatemode_reinstall)
  3195.                             (cat #studio_esc #studio_updatemode_add)
  3196.                             (cat #studio_esc #studio_updatemode_remove)
  3197.                             (cat #studio_esc #studio_updatemode_presets)
  3198.                             (cat #studio_esc #studio_updatemode_registry)
  3199.                             (cat #studio_esc #studio_updatemode_startup)
  3200.                             (cat #studio_esc #studio_updatemode_exit)
  3201.                         )
  3202.  
  3203.                         (default studio_updatemode)
  3204.  
  3205.                         (help #studio_updatemode_help)
  3206.                     )
  3207.                 )
  3208.  
  3209.                 (if (or (= studio_updatemode @updatemode_add) (= studio_updatemode @updatemode_reinstall))
  3210.  
  3211.                     (
  3212.                         ; set defaults (none in <add> mode, installed components in <update> mode)
  3213.  
  3214.                         (if (= studio_updatemode @updatemode_add)
  3215.  
  3216.                             (
  3217.                                 (set studio_components 0)
  3218.                                 (set studio_starter    0)
  3219.                                 (set studio_manual     0)
  3220.                                 (set studio_addons_a   0)
  3221.                                 (set studio_addons_b   0)
  3222.                                 (set studio_addons_c   0)
  3223.                                 (set studio_addons_d   0)
  3224.                             )
  3225.                         )
  3226.  
  3227.                         (set studio_components
  3228.  
  3229.                             (askoptions
  3230.  
  3231.                                 (prompt #studio_components_update)
  3232.  
  3233.                                 (choices
  3234.  
  3235.                                     (cat #studio_esc #studio_components_golded)
  3236.                                     (cat #studio_esc #studio_components_starter)
  3237.                                     (cat #studio_esc #studio_components_docs)
  3238.                                     (cat #studio_esc #studio_components_addons)
  3239.                                     (cat #studio_esc #studio_components_developer)
  3240.                                     (cat #studio_esc #studio_components_screenshot)
  3241.                                     (cat #studio_esc #studio_components_recover)
  3242.                                 )
  3243.  
  3244.                                 (help #studio_components_help)
  3245.  
  3246.                                 (default studio_components)
  3247.                             )
  3248.                         )
  3249.  
  3250.                         (studio_proc_chooseparts)
  3251.  
  3252.                         (studio_proc_installcomponents)
  3253.  
  3254.                         (studio_proc_checksetup)
  3255.  
  3256.                         (run "installdata/programs/moveicons <>NIL: grid dir=golded: dx=70 dy=75 columns=4 files GoldED Screenshot \"Drag & Drop\" Recover Licence Order Anleitung Manual")
  3257.                     )
  3258.                 )
  3259.  
  3260.                 (if (= studio_updatemode @updatemode_remove)
  3261.  
  3262.                     (
  3263.                         (set studio_remove
  3264.  
  3265.                             (askoptions
  3266.  
  3267.                                 (prompt #studio_components_remove)
  3268.  
  3269.                                 (choices
  3270.  
  3271.                                     (cat #studio_esc #studio_components_golded)
  3272.                                     (cat #studio_esc #studio_components_starter)
  3273.                                     (cat #studio_esc #studio_components_docs)
  3274.                                     (cat #studio_esc #studio_components_addons)
  3275.                                     (cat #studio_esc #studio_components_developer)
  3276.                                     (cat #studio_esc #studio_components_screenshot)
  3277.                                     (cat #studio_esc #studio_components_recover)
  3278.                                 )
  3279.  
  3280.                                 (help #studio_components_help)
  3281.  
  3282.                                 (default 0)
  3283.                             )
  3284.                         )
  3285.  
  3286.                         (studio_proc_removeparts)
  3287.  
  3288.                         (studio_proc_removecomponents)
  3289.  
  3290.                         (studio_proc_checksetup)
  3291.  
  3292.                         (run "installdata/programs/moveicons <>NIL: grid dir=golded: dx=70 dy=75 columns=4 files GoldED Screenshot \"Drag & Drop\" Recover Licence Order Anleitung Manual")
  3293.                     )
  3294.                 )
  3295.  
  3296.                 (if (= studio_updatemode @updatemode_presets)
  3297.  
  3298.                     (studio_proc_installpresets)
  3299.                 )
  3300.  
  3301.                 (if (= studio_updatemode @updatemode_registry)
  3302.  
  3303.                     (studio_proc_registry)
  3304.                 )
  3305.  
  3306.                 (if (= studio_updatemode @updatemode_startup)
  3307.  
  3308.                     (studio_proc_startup)
  3309.                 )
  3310.             )
  3311.         )
  3312.     )
  3313. )
  3314.  
  3315. ; ------------------------------------- done -----------------------------------
  3316.  
  3317. (studio_proc_savecfg)
  3318.  
  3319. (studio_proc_cleanup)
  3320.  
  3321. ; set return code
  3322.  
  3323. (delete "env:studioinstall")
  3324.  
  3325. (textfile
  3326.  
  3327.     (dest "env:studioinstall")
  3328.  
  3329.     (append "OK")
  3330. )
  3331.  
  3332. (complete 100)
  3333.  
  3334. (if (= studio_reboot 1)
  3335.  
  3336.     (exit #studio_reboot)
  3337.     (exit)
  3338. )
  3339.  
  3340. (welcome)
  3341.